Skip to content
Snippets Groups Projects
Commit bc660a41 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

chdir on SBCL: require sb-posix before using it.

ensure-function: a hash-table can be seen as a function (to be used by ASDF).
parent 191f00cb
No related branches found
No related tags found
No related merge requests found
...@@ -278,7 +278,7 @@ suitable for use as a directory name to segregate Lisp FASLs, C dynamic librarie ...@@ -278,7 +278,7 @@ suitable for use as a directory name to segregate Lisp FASLs, C dynamic librarie
#+genera (setf *default-pathname-defaults* x) #+genera (setf *default-pathname-defaults* x)
#+lispworks (hcl:change-directory x) #+lispworks (hcl:change-directory x)
#+mkcl (mk-ext:chdir 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"))))) (error "chdir not supported on your implementation")))))
......
...@@ -380,6 +380,7 @@ and EVAL that in a (FUNCTION ...) context." ...@@ -380,6 +380,7 @@ and EVAL that in a (FUNCTION ...) context."
(etypecase fun (etypecase fun
(function fun) (function fun)
((or boolean keyword character number pathname) (constantly fun)) ((or boolean keyword character number pathname) (constantly fun))
(hash-table (lambda (x) (gethash x fun)))
(symbol (fdefinition fun)) (symbol (fdefinition fun))
(cons (if (eq 'lambda (car fun)) (cons (if (eq 'lambda (car fun))
(eval fun) (eval fun)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment