Removed '
git-svn-id: svn://10.0.0.236/trunk@92065 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
parent
106fc6223c
commit
5440d6ccb7
@ -47,7 +47,7 @@
|
||||
(push (if (equal dir-name "..") :up dir-name) directories)
|
||||
(setq filename (subseq filename (1+ slash))))
|
||||
(return (if directories
|
||||
(make-pathname :directory (cons ':relative (nreverse directories)) :name filename #+lispworks :type #+lispworks "lisp")
|
||||
(make-pathname :directory (cons :relative (nreverse directories)) :name filename #+lispworks :type #+lispworks "lisp")
|
||||
#-lispworks filename
|
||||
#+lispworks (make-pathname :name filename :type "lisp"))))))))
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user