0.9.16.37:

	Minor fixups
	... fix building on x86-64 (delete some extra parens...)
	... make funcallable-standard-objects (including generic
		functions) properly inspectable again, after the
		change of the superclasses' order.

diff --git a/src/code/inspect.lisp b/src/code/inspect.lisp
index 1aebddb..c736f5a 100644 (file)
--- a/src/code/inspect.lisp
+++ b/src/code/inspect.lisp
@@ -198,6 +198,12 @@ evaluated expressions.
           t
           (inspected-standard-object-elements object)))
 
+(defmethod inspected-parts ((object sb-mop:funcallable-standard-object))
+  (values (format nil "The object is a ~S of type ~S.~%"
+                  'sb-mop:funcallable-standard-object (type-of object))
+          t
+          (inspected-standard-object-elements object)))
+
 (defmethod inspected-parts ((object condition))
   (values (format nil "The object is a CONDITION of type ~S.~%"
                   (type-of object))

diff --git a/src/compiler/x86-64/call.lisp b/src/compiler/x86-64/call.lisp
index f4125b0..94dab21 100644 (file)
--- a/src/compiler/x86-64/call.lisp
+++ b/src/compiler/x86-64/call.lisp
@@ -1269,7 +1269,7 @@
   (:generator 4
      (inst mov value (make-ea :qword :base object :index index))
      (inst mov keyword (make-ea :qword :base object :index index
-                                :disp n-word-bytes))))))
+                                :disp n-word-bytes))))
 
 ;;; Turn more arg (context, count) into a list.
 (defoptimizer (%listify-rest-args stack-allocate-result) ((&rest args))

diff --git a/version.lisp-expr b/version.lisp-expr
index 82370fd..c4ab8bb 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.16.36"
+"0.9.16.37"