diff options
| author | Camm Maguire <camm@debian.org> | 2014-06-02 22:24:03 +0000 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2014-06-02 22:24:03 +0000 |
| commit | 9b45ccd2d9c213f7268932579e147f97f0eb4292 (patch) | |
| tree | 9b05162ad786f520ea3a3057e3e0caf0d53f024a | |
| parent | a21fc458434066e307b4e2abe93adfdd7866269f (diff) | |
| download | gcl-9b45ccd2d9c213f7268932579e147f97f0eb4292.tar.gz | |
do-recomp edit
| -rw-r--r-- | gcl/lsp/gcl_callhash.lsp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcl/lsp/gcl_callhash.lsp b/gcl/lsp/gcl_callhash.lsp index ef09fa11..bc4ef857 100644 --- a/gcl/lsp/gcl_callhash.lsp +++ b/gcl/lsp/gcl_callhash.lsp @@ -261,7 +261,7 @@ ;(load "sys-proclaim.lisp") (setq compiler::*keep-gaz* t compiler::*tmp-dir* "" si::*disable-recompile* t) (si::chdir "../pcl") - (funcall (find-symbol "COMPILE-PCL" :pcl) t)) + (funcall (find-symbol "COMPILE-PCL" :pcl))) (defun do-recomp (&rest excl &aux r *sig-discovery-props* *compile-verbose*) (labels ((d (&aux (*sig-discovery* t)(q (remove-duplicates (mapcar 'car (mapcan 'needs-recompile r))))) @@ -274,8 +274,8 @@ (fl (remove-duplicates (mapcar (lambda (x) (file x)) fl) :test 'string=)) (fl (set-difference fl (cons "pcl_" excl) :test (lambda (x y) (search y x))))) (compiler::cdebug) -; (format t "~%Recompiling original source files ...") -; (mapc (lambda (x) (format t "~s~%" x) (compile-file x)) (remove nil fl)) + (format t "~%Recompiling original source files ...") + (mapc (lambda (x) (format t "~s~%" x) (compile-file x)) (remove nil fl)) (when pclp (do-pcl *sig-discovery-props*))))) |