Changeset 7842

Timestamp:

Dec 7, 2007, 9:17:00 AM (17 years ago)

Author:

Gary Byers

Message:

Make REBUILD-CCL call (UPDATE-CCL) if :update arg is true. (Defaults
to NIL.)

File:

• branches/working-0711/ccl/lib/compile-ccl.lisp (modified) (1 diff)

branches/working-0711/ccl/lib/compile-ccl.lisp

@@ -456 +456 @@
     (:darwinx8664 "darwinx8664")))
 
-(defun rebuild-ccl (&key full clean kernel force (reload t) exit reload-arguments verbose)
+(defun rebuild-ccl (&key update full clean kernel force (reload t) exit reload-arguments verbose)
   (when full
     (setq clean t kernel t reload t))
+  (when update (update-ccl))
   (let* ((cd (current-directory)))
     (unwind-protect