From f9b113feb08bb833fd3b46555b56f708826e4c93 Mon Sep 17 00:00:00 2001 From: Juho Snellman Date: Sun, 11 Dec 2005 04:23:04 +0000 Subject: [PATCH] 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 --- CREDITS | 3 ++- contrib/sb-introspect/sb-introspect.lisp | 3 ++- src/code/toplevel.lisp | 2 +- src/compiler/macros.lisp | 4 ++++ src/compiler/x86-64/parms.lisp | 8 ++++++++ version.lisp-expr | 2 +- 6 files changed, 18 insertions(+), 4 deletions(-) diff --git a/CREDITS b/CREDITS index b631bdf..53dcb63 100644 --- 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 --- 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 --- 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 --- 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)) ;;;; source-hacking defining forms diff --git a/src/compiler/x86-64/parms.lisp b/src/compiler/x86-64/parms.lisp index e5954c6..1c8d06e 100644 --- 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 --- 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" -- 1.7.10.4