From: Christophe Rhodes Date: Wed, 7 Dec 2005 15:24:41 +0000 (+0000) Subject: 0.9.7.18: X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=7a7a5268d45a213d425228e87c9ecc9f79bd7858;p=sbcl.git 0.9.7.18: Merge patch (David Lichteblau sbcl-devel "define-optimization-quality compute-debug-fun" 2005-12-03) --- diff --git a/src/compiler/debug-dump.lisp b/src/compiler/debug-dump.lisp index 82c128c..ff31524 100644 --- a/src/compiler/debug-dump.lisp +++ b/src/compiler/debug-dump.lisp @@ -496,7 +496,7 @@ (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) diff --git a/src/compiler/policies.lisp b/src/compiler/policies.lisp index 5aac778..e68e4b0 100644 --- a/src/compiler/policies.lisp +++ b/src/compiler/policies.lisp @@ -76,3 +76,7 @@ debug 0) ("no" "no" "partial" "full")) + +(define-optimization-quality compute-debug-fun + debug + ("no" "minimal" "yes" "yes")) diff --git a/src/pcl/slots-boot.lisp b/src/pcl/slots-boot.lisp index 317ccca..e23b889 100644 --- a/src/pcl/slots-boot.lisp +++ b/src/pcl/slots-boot.lisp @@ -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")) diff --git a/version.lisp-expr b/version.lisp-expr index 0c13a86..ec2a5be 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -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"