/[cmucl]/src/tools/pclcom.lisp
ViewVC logotype

Contents of /src/tools/pclcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.7 - (hide annotations)
Mon Aug 3 13:18:33 1992 UTC (21 years, 8 months ago) by ram
Branch: MAIN
Changes since 1.6: +2 -1 lines
Make the PCL package after we rename it so that early package hackery
won't flame out.
1 ram 1.1
2     (in-package "USER")
3    
4 wlott 1.4 (when (find-package "PCL")
5 ram 1.7 (rename-package "PCL" "OLD-PCL")
6     (make-package "PCL"))
7 ram 1.6 (when (find-package "SLOT-ACCESSOR-NAME")
8     (rename-package "SLOT-ACCESSOR-NAME" "OLD-SLOT-ACCESSOR-NAME"))
9 wlott 1.4
10 ram 1.1 (setf c:*suppress-values-declaration* t)
11 ram 1.5 (pushnew :setf *features*)
12 ram 1.1
13     (setf (search-list "pcl:") '("target:pcl/"))
14    
15     (let ((obj (make-pathname :defaults "pcl:defsys"
16     :type (c:backend-fasl-file-type c:*backend*))))
17     (when (< (or (file-write-date obj) 0)
18     (file-write-date "pcl:defsys.lisp"))
19     (compile-file "pcl:defsys")))
20    
21     (load "pcl:defsys" :verbose t)
22    
23     (import 'kernel:funcallable-instance-p (find-package "PCL"))
24    
25 ram 1.2 (with-compilation-unit
26 ram 1.3 (:optimize '(optimize (debug-info #+small .5 #-small 2)
27 ram 1.2 (speed 2)
28 ram 1.3 (inhibit-warnings 2))
29     :context-declarations
30     '((:external (declare (optimize-interface (safety 2) (debug-info 1))))))
31 ram 1.2 (pcl::compile-pcl))

  ViewVC Help
Powered by ViewVC 1.1.5