0.9.7.18:
authorChristophe Rhodes <csr21@cam.ac.uk>
Wed, 7 Dec 2005 15:24:41 +0000 (15:24 +0000)
committerChristophe Rhodes <csr21@cam.ac.uk>
Wed, 7 Dec 2005 15:24:41 +0000 (15:24 +0000)
Merge patch (David Lichteblau sbcl-devel
"define-optimization-quality compute-debug-fun" 2005-12-03)

src/compiler/debug-dump.lisp
src/compiler/policies.lisp
src/pcl/slots-boot.lisp
version.lisp-expr

index 82c128c..ff31524 100644 (file)
 (defun compute-1-debug-fun (fun var-locs)
   (declare (type clambda fun) (type hash-table var-locs))
   (let* ((dfun (dfun-from-fun fun))
-         (actual-level (policy (lambda-bind fun) debug))
+         (actual-level (policy (lambda-bind fun) compute-debug-fun))
          (level (if #!+sb-dyncount *collect-dynamic-statistics*
                     #!-sb-dyncount nil
                     (max actual-level 2)
index 5aac778..e68e4b0 100644 (file)
@@ -76,3 +76,7 @@
         debug
         0)
   ("no" "no" "partial" "full"))
+
+(define-optimization-quality compute-debug-fun
+    debug
+  ("no" "minimal" "yes" "yes"))
index 317ccca..e23b889 100644 (file)
@@ -29,7 +29,7 @@
         (ecase type
           ;; FIXME: change SLOT-OBJECT here to T to get SLOT-MISSING
           ;; behaviour for non-slot-objects too?
-          (reader 
+          (reader
            (values '(object) '(slot-object) 'standard-reader-method
                    (make-std-reader-method-function 'slot-object slot-name)
                    "automatically-generated reader method"))
index 0c13a86..ec2a5be 100644 (file)
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.7.17"
+"0.9.7.18"