projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.33.25: switch SB-QUEUE into using ASDF
[sbcl.git]
/
src
/
compiler
/
fndb.lisp
diff --git
a/src/compiler/fndb.lisp
b/src/compiler/fndb.lisp
index
58d6309
..
fc5daa7
100644
(file)
--- a/
src/compiler/fndb.lisp
+++ b/
src/compiler/fndb.lisp
@@
-1232,7
+1232,7
@@
:rename-and-delete :overwrite
:append :supersede nil))
(:if-does-not-exist (member :error :create nil))
:rename-and-delete :overwrite
:append :supersede nil))
(:if-does-not-exist (member :error :create nil))
- (:external-format keyword))
+ (:external-format external-format-designator))
(or stream null))
(defknown rename-file (pathname-designator filename)
(or stream null))
(defknown rename-file (pathname-designator filename)
@@
-1255,7
+1255,7
@@
(:verbose t)
(:print t)
(:if-does-not-exist t)
(:verbose t)
(:print t)
(:if-does-not-exist t)
- (:external-format keyword))
+ (:external-format external-format-designator))
t)
(defknown directory (pathname-designator &key (:resolve-symlinks t))
t)
(defknown directory (pathname-designator &key (:resolve-symlinks t))
@@
-1307,11
+1307,12
@@
(member t)))
(:verbose t)
(:print t)
(member t)))
(:verbose t)
(:print t)
- (:external-format keyword)
+ (:external-format external-format-designator)
;; extensions
(:trace-file t)
;; extensions
(:trace-file t)
- (:block-compile t))
+ (:block-compile t)
+ (:emit-cfasl t))
(values (or pathname null) boolean boolean))
;; FIXME: consider making (OR CALLABLE CONS) something like
(values (or pathname null) boolean boolean))
;; FIXME: consider making (OR CALLABLE CONS) something like