and export this useful function from sb-exr.
Slight mangling by Paul Khuong.
* enhancement: disassemble now annotates some previously missing static
functions, like LENGTH.
* enhancement: clean.sh now also cleans doc/internals.
* enhancement: disassemble now annotates some previously missing static
functions, like LENGTH.
* enhancement: clean.sh now also cleans doc/internals.
+ * enhancement: SB-EXT:PRINT-SYMBOL-WITH-PREFIX can be used within ~// to
+ print a symbol with a package prefix.
* optimization: calls to static functions on x86-64 use less instructions.
* optimization: compute encode-universal-time at compile time when possible.
* optimization: when referencing internal functions as #'x, don't go through
* optimization: calls to static functions on x86-64 use less instructions.
* optimization: compute encode-universal-time at compile time when possible.
* optimization: when referencing internal functions as #'x, don't go through
"DELETE-DIRECTORY"
"SET-SBCL-SOURCE-LOCATION"
"*DISASSEMBLE-ANNOTATE*"
"DELETE-DIRECTORY"
"SET-SBCL-SOURCE-LOCATION"
"*DISASSEMBLE-ANNOTATE*"
+ "PRINT-SYMBOL-WITH-PREFIX"
;; stepping interface
"STEP-CONDITION" "STEP-FORM-CONDITION" "STEP-FINISHED-CONDITION"
;; stepping interface
"STEP-CONDITION" "STEP-FORM-CONDITION" "STEP-FINISHED-CONDITION"
(:report
(lambda (condition stream)
(format stream
(:report
(lambda (condition stream)
(format stream
- "The function ~/sb-impl::print-symbol-with-prefix/ is undefined."
+ "The function ~/sb!ext:print-symbol-with-prefix/ is undefined."
(cell-error-name condition)))))
(define-condition special-form-function (undefined-function) ()
(cell-error-name condition)))))
(define-condition special-form-function (undefined-function) ()
((name :initarg :name :reader implicit-generic-function-name))
(:report
(lambda (condition stream)
((name :initarg :name :reader implicit-generic-function-name))
(:report
(lambda (condition stream)
- (let ((*package* (find-package :keyword)))
- (format stream "~@<Implicitly creating new generic function ~S.~:@>"
- (implicit-generic-function-name condition))))))
+ (format stream "~@<Implicitly creating new generic function ~
+ ~/sb-impl::print-symbol-with-prefix/.~:@>"
+ (implicit-generic-function-name condition)))))
(define-condition extension-failure (reference-condition simple-error)
())
(define-condition extension-failure (reference-condition simple-error)
())