X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fwarm.lisp;h=fc6f1c4df8e0398471c5d7cab26688b2343b0586;hb=e0aff99a73d836da0dad4602e5559595fbe5ba5c;hp=6fd757b6a27bb098d39aabe21b6273a3ec2e5aa9;hpb=562e48a2bd3467121e24214110e535c841fbb622;p=sbcl.git

diff --git a/src/cold/warm.lisp b/src/cold/warm.lisp
index 6fd757b..fc6f1c4 100644
--- a/src/cold/warm.lisp
+++ b/src/cold/warm.lisp
@@ -65,21 +65,6 @@
 
 ;;;; compiling and loading more of the system
 
-(let* ((sys *default-pathname-defaults*)
-       (src
-        (merge-pathnames
-         (make-pathname :directory '(:relative "src" :wild-inferiors)
-                        :name :wild :type :wild)
-         sys))
-       (contrib
-        (merge-pathnames
-         (make-pathname :directory '(:relative "contrib" :wild-inferiors)
-                        :name :wild :type :wild)
-         sys)))
-  (setf (logical-pathname-translations "SYS")
-        `(("SYS:SRC;**;*.*.*" ,src)
-          ("SYS:CONTRIB;**;*.*.*" ,contrib))))
-
 ;;; FIXME: CMU CL's pclcom.lisp had extra optional stuff wrapped around
 ;;; COMPILE-PCL, at least some of which we should probably have too:
 ;;;
@@ -174,13 +159,7 @@
                 "SRC;CODE;PROFILE"
                 "SRC;CODE;NTRACE"
                 "SRC;CODE;STEP"
-                "SRC;CODE;RUN-PROGRAM"
-
-                ;; 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"))
+                "SRC;CODE;RUN-PROGRAM"))
 
   (let ((fullname (concatenate 'string "SYS:" stem ".LISP")))
     (sb-int:/show "about to compile" fullname)