:rename-and-delete :overwrite
:append :supersede nil))
(:if-does-not-exist (member :error :create nil))
- (:external-format
- ;; FIXME: This is logically (MEMBER :DEFAULT),
- ;; but as a workaround for bug 244, we don't
- ;; declare it (to keep the compiler from trusting
- ;; the declaration unchecked).
- t))
+ (:external-format (member :default)))
(or stream null))
(defknown rename-file (pathname-designator filename)
(:verbose t)
(:print t)
(:if-does-not-exist (member :error :create nil))
- (:external-format
- ;; FIXME: This is logically (MEMBER :DEFAULT), but as a workaround
- ;; for bug 244, we don't declare it (to keep the compiler from
- ;; trusting the declaration unchecked).
- t))
+ (:external-format (member :default)))
t)
(defknown directory (pathname-designator &key)
(defknown %%primitive (t t &rest t) *)
(defknown %pop-values (t) t)
(defknown %type-check-error (t t) nil)
+
+;; FIXME: This function does not return, but due to the implementation
+;; of FILTER-CONTINUATION we cannot write it here.
+(defknown %compile-time-type-error (t t t) *)
+
(defknown %odd-key-args-error () nil)
(defknown %unknown-key-arg-error (t) nil)
(defknown (%ldb %mask-field) (bit-index bit-index integer) unsigned-byte