;; miscellaneous functionality which depends on CLOS
"src/code/force-delayed-defbangmethods"
+ "src/code/late-condition"
;; CLOS-level support for the Gray OO streams
;; extension (which is also supported by various
(let ((fullname (concatenate 'string stem ".lisp")))
(sb-int:/show "about to compile" fullname)
(flet ((report-recompile-restart (stream)
- (format stream "Recompile file ~S" src))
+ (format stream "Recompile file ~S" fullname))
(report-continue-restart (stream)
- (format stream "Continue, using possibly bogus file ~S" obj)))
+ (format stream
+ "Continue, using possibly bogus file ~S"
+ (compile-file-pathname fullname))))
(tagbody
retry-compile-file
(multiple-value-bind (output-truename warnings-p failure-p)
(declare (ignore warnings-p))
(sb-int:/show "done compiling" fullname)
(cond ((not output-truename)
- (error "COMPILE-FILE of ~S failed." src))
+ (error "COMPILE-FILE of ~S failed." fullname))
(failure-p
(unwind-protect
(restart-case
(error "FAILURE-P was set when creating ~S."
- obj)
+ output-truename)
(recompile ()
:report report-recompile-restart
(go retry-compile-file))
(t nil))
(unless (load output-truename)
(error "LOAD of ~S failed." output-truename))
- (sb-int:/show "done loading" compiled-truename))))))
+ (sb-int:/show "done loading" output-truename))))))
\f
;;;; setting package documentation
"public: the default package for user code and data")
#+sb-doc (setf (documentation (find-package "KEYWORD") t)
"public: home of keywords")
-
-;;; KLUDGE: It'd be nicer to do this in the table with the other
-;;; non-standard packages. -- WHN 19991206
-#+sb-doc (setf (documentation (find-package "SB-SLOT-ACCESSOR-NAME") t)
- "private: home of CLOS slot accessor internal names")
-
-;;; FIXME: There doesn't seem to be any easy way to get package doc strings
-;;; through the cold boot process. They need to be set somewhere. Maybe the
-;;; easiest thing to do is to read them out of package-data-list.lisp-expr
-;;; now?