(dolist (package (list-all-packages))
(let ((old-package-name (package-name package)))
(when (and (>= (length old-package-name) (length boot-prefix))
(dolist (package (list-all-packages))
(let ((old-package-name (package-name package)))
(when (and (>= (length old-package-name) (length boot-prefix))
- (string= boot-prefix old-package-name
- :end2 (length boot-prefix)))
- (let ((new-package-name (concatenate 'string
- perm-prefix
- (subseq old-package-name
- (length boot-prefix)))))
- (rename-package package
- new-package-name
- (package-nicknames package)))))))
+ (string= boot-prefix old-package-name
+ :end2 (length boot-prefix)))
+ (let ((new-package-name (concatenate 'string
+ perm-prefix
+ (subseq old-package-name
+ (length boot-prefix)))))
+ (rename-package package
+ new-package-name
+ (package-nicknames package)))))))
;;; FIXME: This nickname is a deprecated hack for backwards
;;; compatibility with code which assumed the CMU-CL-style
;;; FIXME: This nickname is a deprecated hack for backwards
;;; compatibility with code which assumed the CMU-CL-style
;;; in 0.7.0, so we should get rid of this nickname after a while.
(let ((package (find-package "SB-ALIEN")))
(rename-package package
;;; in 0.7.0, so we should get rid of this nickname after a while.
(let ((package (find-package "SB-ALIEN")))
(rename-package package
- (package-name package)
- (cons "SB-C-CALL" (package-nicknames package))))
+ (package-name package)
+ (cons "SB-C-CALL" (package-nicknames package))))
+
+(let ((package (find-package "SB-SEQUENCE")))
+ (rename-package package (package-name package) (list "SEQUENCE")))
-;;; #-(or high-security small) 2
-;;; #+high-security 3)
-;;; (speed 2) (safety #+(and (not high-security) small) 0
-;;; #-(or high-security small) 2
-;;; #+high-security 3)
-;;; (inhibit-warnings 2))
+;;; #-(or high-security small) 2
+;;; #+high-security 3)
+;;; (speed 2) (safety #+(and (not high-security) small) 0
+;;; #-(or high-security small) 2
+;;; #+high-security 3)
+;;; (inhibit-warnings 2))
;;; :context-declarations
;;; '((:external (declare (optimize-interface (safety #-high-security 2 #+high-
;;; security 3)
;;; :context-declarations
;;; '((:external (declare (optimize-interface (safety #-high-security 2 #+high-
;;; security 3)
;;;
;;; FIXME: This has mutated into a hack which crudely duplicates
;;; functionality from the existing mechanism to load files from
;;;
;;; FIXME: This has mutated into a hack which crudely duplicates
;;; functionality from the existing mechanism to load files from
;;; parallel directory trees.) Maybe we could merge the filenames here
;;; into build-order.lisp-expr with some new flag (perhaps :WARM) to
;;; indicate that the files should be handled not in cold load but
;;; parallel directory trees.) Maybe we could merge the filenames here
;;; into build-order.lisp-expr with some new flag (perhaps :WARM) to
;;; indicate that the files should be handled not in cold load but
- ;;
- ;; This PCL build order is based on a particular
- ;; (arbitrary) linearization of the declared build
- ;; order dependencies from the old PCL defsys.lisp
- ;; dependency database.
- #+nil "src/pcl/walk" ; #+NIL = moved to build-order.lisp-expr
- "src/pcl/early-low"
- "src/pcl/macros"
- "src/pcl/compiler-support"
- "src/pcl/low"
- "src/pcl/slot-name"
- "src/pcl/defclass"
- "src/pcl/defs"
- "src/pcl/fngen"
- "src/pcl/cache"
- "src/pcl/dlisp"
- "src/pcl/dlisp2"
- "src/pcl/boot"
- "src/pcl/vector"
- "src/pcl/slots-boot"
- "src/pcl/combin"
- "src/pcl/dfun"
- "src/pcl/ctor"
- "src/pcl/braid"
- "src/pcl/dlisp3"
- "src/pcl/generic-functions"
- "src/pcl/slots"
- "src/pcl/init"
- "src/pcl/std-class"
- "src/pcl/cpl"
- "src/pcl/fsc"
- "src/pcl/methods"
- "src/pcl/fixup"
- "src/pcl/defcombin"
- "src/pcl/ctypes"
- "src/pcl/env"
- "src/pcl/documentation"
- "src/pcl/print-object"
- "src/pcl/precom1"
- "src/pcl/precom2"
+ ;;
+ ;; This PCL build order is based on a particular
+ ;; (arbitrary) linearization of the declared build
+ ;; order dependencies from the old PCL defsys.lisp
+ ;; dependency database.
+ #+nil "src/pcl/walk" ; #+NIL = moved to build-order.lisp-expr
+ "SRC;PCL;EARLY-LOW"
+ "SRC;PCL;MACROS"
+ "SRC;PCL;COMPILER-SUPPORT"
+ "SRC;PCL;LOW"
+ "SRC;PCL;SLOT-NAME"
+ "SRC;PCL;DEFCLASS"
+ "SRC;PCL;DEFS"
+ "SRC;PCL;FNGEN"
+ "SRC;PCL;WRAPPER"
+ "SRC;PCL;CACHE"
+ "SRC;PCL;DLISP"
+ "SRC;PCL;BOOT"
+ "SRC;PCL;VECTOR"
+ "SRC;PCL;SLOTS-BOOT"
+ "SRC;PCL;COMBIN"
+ "SRC;PCL;DFUN"
+ "SRC;PCL;CTOR"
+ "SRC;PCL;BRAID"
+ "SRC;PCL;DLISP3"
+ "SRC;PCL;GENERIC-FUNCTIONS"
+ "SRC;PCL;SLOTS"
+ "SRC;PCL;INIT"
+ "SRC;PCL;STD-CLASS"
+ "SRC;PCL;CPL"
+ "SRC;PCL;FSC"
+ "SRC;PCL;METHODS"
+ "SRC;PCL;FIXUP"
+ "SRC;PCL;DEFCOMBIN"
+ "SRC;PCL;CTYPES"
+ "SRC;PCL;ENV"
+ "SRC;PCL;DOCUMENTATION"
+ "SRC;PCL;PRINT-OBJECT"
+ "SRC;PCL;PRECOM1"
+ "SRC;PCL;PRECOM2"
- ;; miscellaneous functionality which depends on CLOS
- "src/code/force-delayed-defbangmethods"
- "src/code/late-condition"
+ ;; 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
- ;; lower-level hooks elsewhere in the code)
- "src/pcl/gray-streams-class"
- "src/pcl/gray-streams"
+ ;; CLOS-level support for the Gray OO streams
+ ;; extension (which is also supported by various
+ ;; lower-level hooks elsewhere in the code)
+ "SRC;PCL;GRAY-STREAMS-CLASS"
+ "SRC;PCL;GRAY-STREAMS"
- ;; other functionality not needed for cold init, moved
- ;; to warm init to reduce peak memory requirement in
- ;; cold init
- "src/code/describe"
- "src/code/describe-policy"
- "src/code/inspect"
- "src/code/profile"
- "src/code/ntrace"
- "src/code/foreign"
- "src/code/run-program"
+ ;; CLOS-level support for User-extensible sequences.
+ "SRC;PCL;SEQUENCE"
- ;; Code derived from PCL's pre-ANSI DESCRIBE-OBJECT
- ;; facility is still used in our ANSI DESCRIBE
- ;; facility, and should be compiled and loaded after
- ;; our DESCRIBE facility is compiled and loaded.
- "src/pcl/describe"))
+ ;; other functionality not needed for cold init, moved
+ ;; to warm init to reduce peak memory requirement in
+ ;; cold init
+ "SRC;CODE;DESCRIBE"
+ "SRC;CODE;DESCRIBE-POLICY"
+ "SRC;CODE;INSPECT"
+ "SRC;CODE;PROFILE"
+ "SRC;CODE;NTRACE"
+ "SRC;CODE;STEP"
+ "SRC;CODE;RUN-PROGRAM"))
(sb-int:/show "about to compile" fullname)
(flet ((report-recompile-restart (stream)
(format stream "Recompile file ~S" fullname))
(report-continue-restart (stream)
(format stream
(sb-int:/show "about to compile" fullname)
(flet ((report-recompile-restart (stream)
(format stream "Recompile file ~S" fullname))
(report-continue-restart (stream)
(format stream
- "Continue, using possibly bogus file ~S"
- (compile-file-pathname fullname))))
+ "Continue, using possibly bogus file ~S"
+ (compile-file-pathname fullname))))
- (unwind-protect
- (restart-case
- (error "FAILURE-P was set when creating ~S."
- output-truename)
- (recompile ()
- :report report-recompile-restart
- (go retry-compile-file))
- (continue ()
- :report report-continue-restart
- (setf failure-p nil)))
- ;; Don't leave failed object files lying around.
- (when (and failure-p (probe-file output-truename))
+ (unwind-protect
+ (restart-case
+ (error "FAILURE-P was set when creating ~S."
+ output-truename)
+ (recompile ()
+ :report report-recompile-restart
+ (go retry-compile-file))
+ (continue ()
+ :report report-continue-restart
+ (setf failure-p nil)))
+ ;; Don't leave failed object files lying around.
+ (when (and failure-p (probe-file output-truename))
(delete-file output-truename)
(format t "~&deleted ~S~%" output-truename))))
;; Otherwise: success, just fall through.
(t nil))
(delete-file output-truename)
(format t "~&deleted ~S~%" output-truename))))
;; Otherwise: success, just fall through.
(t nil))
- (unless (load output-truename)
- (error "LOAD of ~S failed." output-truename))
- (sb-int:/show "done loading" output-truename))))))
+ (unless (load output-truename)
+ (error "LOAD of ~S failed." output-truename))
+ (sb-int:/show "done loading" output-truename))))))
#+sb-doc (setf (documentation (find-package "COMMON-LISP") t)
"public: home of symbols defined by the ANSI language specification")
#+sb-doc (setf (documentation (find-package "COMMON-LISP-USER") t)
#+sb-doc (setf (documentation (find-package "COMMON-LISP") t)
"public: home of symbols defined by the ANSI language specification")
#+sb-doc (setf (documentation (find-package "COMMON-LISP-USER") 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")
+ "public: home of keywords")
+\f