Loading src/code/inspect.lisp +6 −0 Original line number Diff line number Diff line Loading @@ -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)) Loading src/compiler/x86-64/call.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -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)) Loading version.lisp-expr +1 −1 Original line number Diff line number Diff line Loading @@ -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" Loading
src/code/inspect.lisp +6 −0 Original line number Diff line number Diff line Loading @@ -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)) Loading
src/compiler/x86-64/call.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -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)) Loading
version.lisp-expr +1 −1 Original line number Diff line number Diff line Loading @@ -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"