Changeset 12634


Ignore:
Timestamp:
Aug 20, 2009, 2:27:08 AM (10 years ago)
Author:
gz
Message:

Add a :save-source-locations arg to REBUILD-CCL, defaults to *ccl-save-source-locations*

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/compile-ccl.lisp

    r12375 r12634  
    516516(defparameter *known-optional-features* '(:count-gf-calls :monitor-futex-wait :unique-dcode))
    517517(defvar *build-time-optional-features* nil)
    518 
    519 
    520 (defun rebuild-ccl (&key update full clean kernel force (reload t) exit reload-arguments verbose optional-features)
     518(defvar *ccl-save-source-locations* :no-text)
     519
     520(defun rebuild-ccl (&key update full clean kernel force (reload t) exit reload-arguments verbose optional-features (save-source-locations *ccl-save-source-locations*))
    521521  (let* ((*build-time-optional-features* (intersection *known-optional-features* optional-features))
    522          (*features* (append *build-time-optional-features* *features*)))
     522         (*features* (append *build-time-optional-features* *features*))
     523         (*save-source-locations* save-source-locations))
    523524    (when *build-time-optional-features*
    524525      (setq full t))
Note: See TracChangeset for help on using the changeset viewer.