projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.26.7: use a signal for SIG_STOP_FOR_GC > SIGSEGV on Linux
[sbcl.git]
/
src
/
code
/
package.lisp
diff --git
a/src/code/package.lisp
b/src/code/package.lisp
index
2bb677f
..
b1366d6
100644
(file)
--- a/
src/code/package.lisp
+++ b/
src/code/package.lisp
@@
-295,10
+295,10
@@
of :INHERITED :EXTERNAL :INTERNAL."
:INHERITED must be supplied."))
,(dolist (symbol symbol-types)
(unless (member symbol '(:internal :external :inherited))
:INHERITED must be supplied."))
,(dolist (symbol symbol-types)
(unless (member symbol '(:internal :external :inherited))
- (error 'program-error
+ (error 'simple-program-error
:format-control
"~S is not one of :INTERNAL, :EXTERNAL, or :INHERITED."
:format-control
"~S is not one of :INTERNAL, :EXTERNAL, or :INHERITED."
- :format-argument symbol)))
+ :format-arguments (list symbol))))
(,init-macro ,(car ordered-types))
(flet ((,real-symbol-p (number)
(> number 1)))
(,init-macro ,(car ordered-types))
(flet ((,real-symbol-p (number)
(> number 1)))