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

Contents of /src/tools/pclcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (hide annotations)
Thu Apr 25 22:16:47 1991 UTC (22 years, 11 months ago) by ram
Branch: MAIN
Changes since 1.1: +5 -2 lines
Use debug-info 1 with SMALL feature.
1 ram 1.1
2     (in-package "USER")
3    
4     (setf c:*suppress-values-declaration* t)
5    
6     (setf (search-list "pcl:") '("target:pcl/"))
7    
8     (let ((obj (make-pathname :defaults "pcl:defsys"
9     :type (c:backend-fasl-file-type c:*backend*))))
10     (when (< (or (file-write-date obj) 0)
11     (file-write-date "pcl:defsys.lisp"))
12     (compile-file "pcl:defsys")))
13    
14     (load "pcl:defsys" :verbose t)
15    
16     (import 'kernel:funcallable-instance-p (find-package "PCL"))
17    
18 ram 1.2 (with-compilation-unit
19     (:optimize '(optimize (debug-info #+small 1 #-small 2)
20     (speed 2)
21     (inhibit-warnings 2)))
22     (pcl::compile-pcl))

  ViewVC Help
Powered by ViewVC 1.1.5