common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Use sb!ext:print-symbol-with-prefix in implicit-generic-function-warning.

Browse source 
and export this useful function from sb-exr.

 Slight mangling by Paul Khuong.
This commit is contained in:
Attila Lendvai 2011-01-02 16:42:15 +01:00 committed by Paul Khuong
parent 3e3cd66f48
commit c7313d05a1
3 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
NEWS
View file

@ -3,6 +3,8 @@ changes relative to sbcl-1.1.8:
* 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

1
package-data-list.lisp-expr
View file

@ -824,6 +824,7 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
"DELETE-DIRECTORY"
"SET-SBCL-SOURCE-LOCATION"
"*DISASSEMBLE-ANNOTATE*"
"PRINT-SYMBOL-WITH-PREFIX"
;; stepping interface
"STEP-CONDITION" "STEP-FORM-CONDITION" "STEP-FINISHED-CONDITION"

8
src/code/condition.lisp
View file

@ -697,7 +697,7 @@
(: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) ()
@ -977,9 +977,9 @@
((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)
())