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

Contents of /src/tools/pclcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.9 - (show annotations)
Fri Jul 23 21:09:27 1993 UTC (20 years, 9 months ago) by ram
Branch: MAIN
Changes since 1.8: +2 -2 lines
debug-info => debug
1
2 (in-package "USER")
3
4 (when (find-package "PCL")
5 (rename-package "PCL" "OLD-PCL")
6 (make-package "PCL"))
7 (when (find-package "SLOT-ACCESSOR-NAME")
8 (rename-package "SLOT-ACCESSOR-NAME" "OLD-SLOT-ACCESSOR-NAME"))
9
10 (setf c:*suppress-values-declaration* t)
11 (pushnew :setf *features*)
12
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 (with-compilation-unit
26 (:optimize '(optimize (debug #+small .5 #-small 2)
27 (speed 2) (safety #+small 0 #-small 2)
28 (inhibit-warnings 2))
29 :optimize-interface '(optimize-interface #+small (safety 1))
30 :context-declarations
31 '((:external (declare (optimize-interface (safety 2) (debug 1))))
32 (:macro (declare (optimize (speed 0))))))
33 (pcl::compile-pcl))

  ViewVC Help
Powered by ViewVC 1.1.5