Newer
Older
(rename-package "PCL" "OLD-PCL")
(make-package "PCL"))
(when (find-package "SLOT-ACCESSOR-NAME")
(rename-package "SLOT-ACCESSOR-NAME" "OLD-SLOT-ACCESSOR-NAME"))
(setf (search-list "pcl:") '("target:pcl/"))
(let ((obj (make-pathname :defaults "pcl:defsys"
:type (c:backend-fasl-file-type c:*backend*))))
(when (< (or (file-write-date obj) 0)
(file-write-date "pcl:defsys.lisp"))
(compile-file "pcl:defsys")))
(load "pcl:defsys" :verbose t)
(import 'kernel:funcallable-instance-p (find-package "PCL"))
(:optimize '(optimize (debug-info #+small .5 #-small 2)
(inhibit-warnings 2))
:context-declarations
'((:external (declare (optimize-interface (safety 2) (debug-info 1))))))