Loading uiop/os.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -278,7 +278,7 @@ suitable for use as a directory name to segregate Lisp FASLs, C dynamic librarie #+genera (setf *default-pathname-defaults* x) #+lispworks (hcl:change-directory x) #+mkcl (mk-ext:chdir x) #+sbcl (symbol-call :sb-posix :chdir (sb-ext:native-namestring x)) #+sbcl (progn (require :sb-posix) (symbol-call :sb-posix :chdir (sb-ext:native-namestring x))) (error "chdir not supported on your implementation"))))) Loading uiop/utility.lisp +1 −0 Original line number Diff line number Diff line Loading @@ -380,6 +380,7 @@ and EVAL that in a (FUNCTION ...) context." (etypecase fun (function fun) ((or boolean keyword character number pathname) (constantly fun)) (hash-table (lambda (x) (gethash x fun))) (symbol (fdefinition fun)) (cons (if (eq 'lambda (car fun)) (eval fun) Loading Loading
uiop/os.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -278,7 +278,7 @@ suitable for use as a directory name to segregate Lisp FASLs, C dynamic librarie #+genera (setf *default-pathname-defaults* x) #+lispworks (hcl:change-directory x) #+mkcl (mk-ext:chdir x) #+sbcl (symbol-call :sb-posix :chdir (sb-ext:native-namestring x)) #+sbcl (progn (require :sb-posix) (symbol-call :sb-posix :chdir (sb-ext:native-namestring x))) (error "chdir not supported on your implementation"))))) Loading
uiop/utility.lisp +1 −0 Original line number Diff line number Diff line Loading @@ -380,6 +380,7 @@ and EVAL that in a (FUNCTION ...) context." (etypecase fun (function fun) ((or boolean keyword character number pathname) (constantly fun)) (hash-table (lambda (x) (gethash x fun))) (symbol (fdefinition fun)) (cons (if (eq 'lambda (car fun)) (eval fun) Loading