0.9.7.25:

        Miscellanea.

        * Don't return structures from FIND-DEFINITION-SOURCE-BY-NAME when
          asking for classes
        * Fix typo in error message for --eval '1 2' (reported by ignas
          on #lisp)
        * Add a couple of comments
	* Add myself to the initials glossary

diff --git a/CREDITS b/CREDITS
index b631bdf..53dcb63 100644 (file)
--- a/CREDITS
+++ b/CREDITS
@@ -764,10 +764,11 @@ AL   Arthur Lemmens
 DFL  David Lichteblau
 RAM  Robert MacLachlan
 PRM  Pierre Mai
+MG   Gabor Melis
 WHN  William ("Bill") Newman
 CSR  Christophe Rhodes
 THS  Thiemo Seufer
 NS   Nikodemus Siivola
+JES  Juho Snellman
 PVE  Peter Van Eynde
 PW   Paul Werkowski
-MG   Gabor Melis

diff --git a/contrib/sb-introspect/sb-introspect.lisp b/contrib/sb-introspect/sb-introspect.lisp
index fe56ac4..aa323a6 100644 (file)
--- a/contrib/sb-introspect/sb-introspect.lisp
+++ b/contrib/sb-introspect/sb-introspect.lisp
@@ -201,7 +201,8 @@ If an unsupported TYPE is requested, the function will return NIL.
                  (sb-int:info :source-location :typed-structure name))))))
        ((:condition :class)
         (let ((class (find-class name nil)))
-          (when class
+          (when (and class
+                     (not (typep class 'sb-pcl::structure-class)))
             (when (eq (not (typep class 'sb-pcl::condition-class))
                       (not (eq type :condition)))
               (find-definition-source class)))))

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index 830c1c2..13bd93e 100644 (file)
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -329,7 +329,7 @@ steppers to maintain contextual information.")
   (flet ((process-1 (string)
            (multiple-value-bind (expr pos) (read-from-string string)
              (unless (eq string (read-from-string string nil string :start pos))
-               (error "More the one expression in ~S" string))
+               (error "More than one expression in ~S" string))
              (eval expr)
              (flush-standard-output-streams))))
     (restart-case

diff --git a/src/compiler/macros.lisp b/src/compiler/macros.lisp
index d5110de..ede723a 100644 (file)
--- a/src/compiler/macros.lisp
+++ b/src/compiler/macros.lisp
@@ -22,6 +22,10 @@
 ;;;             if policy favors.
 ;;; :MAYBE-INLINE
 ;;;             Retain expansion, but only use it opportunistically.
+;;;             :MAYBE-INLINE is quite different from :INLINE. As explained
+;;;             by APD on #lisp 2005-11-26: "MAYBE-INLINE lambda is
+;;;             instantiated once per component, INLINE - for all
+;;;             references (even under #'without FUNCALL)."
 (deftype inlinep () '(member :inline :maybe-inline :notinline nil))
 \f
 ;;;; source-hacking defining forms

diff --git a/src/compiler/x86-64/parms.lisp b/src/compiler/x86-64/parms.lisp
index e5954c6..1c8d06e 100644 (file)
--- a/src/compiler/x86-64/parms.lisp
+++ b/src/compiler/x86-64/parms.lisp
@@ -89,6 +89,14 @@
 
 ;;; where to put the different spaces.
 
+;;; Currently the read-only and static spaces must be located in low
+;;; memory (certainly under the 4GB limit, very probably under 2GB
+;;; limit). This is due to the inability of using immediate values of
+;;; more than 32 bits (31 bits if you take sign extension into
+;;; account) in any other instructions except MOV. Removing this limit
+;;; would be possible, but probably not worth the time and code bloat
+;;; it would cause. -- JES, 2005-12-11
+
 (def!constant read-only-space-start     #x20000000)
 (def!constant read-only-space-end       #x27ff0000)
 

diff --git a/version.lisp-expr b/version.lisp-expr
index 4ea1704..2fcf894 100644 (file)
--- 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.24"
+"0.9.7.25"