CMUCL commit: intl-branch src/compiler (12 files)
Raymond Toy
rtoy at common-lisp.net
Thu Feb 25 05:35:40 CET 2010
Date: Wednesday, February 24, 2010 @ 23:35:40
Author: rtoy
Path: /project/cmucl/cvsroot/src/compiler
Tag: intl-branch
Modified: checkgen.lisp constraint.lisp ir1opt.lisp ir1tran.lisp ir1util.lisp
locall.lisp ltn.lisp main.lisp proclaim.lisp seqtran.lisp
srctran.lisp typetran.lisp
o Make COMPILER-WARNING do the string lookup instead of at each call
site.
o Change all calls to COMPILER-WARNING to use _N" instead of _".
-----------------+
checkgen.lisp | 6 +++---
constraint.lisp | 4 ++--
ir1opt.lisp | 10 +++++-----
ir1tran.lisp | 22 +++++++++++-----------
ir1util.lisp | 8 ++++----
locall.lisp | 14 +++++++-------
ltn.lisp | 4 ++--
main.lisp | 10 +++++-----
proclaim.lisp | 12 ++++++------
seqtran.lisp | 4 ++--
srctran.lisp | 4 ++--
typetran.lisp | 4 ++--
12 files changed, 51 insertions(+), 51 deletions(-)
Index: src/compiler/checkgen.lisp
diff -u src/compiler/checkgen.lisp:1.34.32.3 src/compiler/checkgen.lisp:1.34.32.4
--- src/compiler/checkgen.lisp:1.34.32.3 Wed Feb 24 22:59:43 2010
+++ src/compiler/checkgen.lisp Wed Feb 24 23:35:40 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/compiler/checkgen.lisp,v 1.34.32.3 2010-02-25 03:59:43 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/checkgen.lisp,v 1.34.32.4 2010-02-25 04:35:40 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -524,11 +524,11 @@
(leaf-name (elt (lambda-vars lambda) pos)))))))
(cond ((eq dtype *empty-type*))
((and (ref-p node) (constant-p (ref-leaf node)))
- (compiler-warning _"~:[This~;~:*~A~] is not a ~<~%~9T~:;~S:~>~% ~S"
+ (compiler-warning _N"~:[This~;~:*~A~] is not a ~<~%~9T~:;~S:~>~% ~S"
what atype-spec (constant-value (ref-leaf node))))
(t
(compiler-warning
- _"~:[Result~;~:*~A~] is a ~S, ~<~%~9T~:;not a ~S.~>"
+ _N"~:[Result~;~:*~A~] is a ~S, ~<~%~9T~:;not a ~S.~>"
what (type-specifier dtype) atype-spec))))
(undefined-value))
Index: src/compiler/constraint.lisp
diff -u src/compiler/constraint.lisp:1.26.42.2 src/compiler/constraint.lisp:1.26.42.3
--- src/compiler/constraint.lisp:1.26.42.2 Wed Feb 10 16:50:39 2010
+++ src/compiler/constraint.lisp Wed Feb 24 23:35:40 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/compiler/constraint.lisp,v 1.26.42.2 2010-02-10 21:50:39 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/constraint.lisp,v 1.26.42.3 2010-02-25 04:35:40 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -534,7 +534,7 @@
(when *check-consistency*
(let ((*compiler-error-context* (block-last block)))
(compiler-warning
- _"*** Unreachable code in constraint ~
+ _N"*** Unreachable code in constraint ~
propagation... Bug?")))
(make-sset))))
(kill (block-kill block))
Index: src/compiler/ir1opt.lisp
diff -u src/compiler/ir1opt.lisp:1.87.14.2 src/compiler/ir1opt.lisp:1.87.14.3
--- src/compiler/ir1opt.lisp:1.87.14.2 Wed Feb 10 20:33:01 2010
+++ src/compiler/ir1opt.lisp Wed Feb 24 23:35:40 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/compiler/ir1opt.lisp,v 1.87.14.2 2010-02-11 01:33:01 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/ir1opt.lisp,v 1.87.14.3 2010-02-25 04:35:40 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -196,7 +196,7 @@
(not (eq rtype *empty-type*)))
(let ((*compiler-error-context* node))
(compiler-warning
- _"New inferred type ~S conflicts with old type:~
+ _N"New inferred type ~S conflicts with old type:~
~% ~S~%*** Bug?"
(type-specifier rtype) (type-specifier node-type))))
(setf (node-derived-type node) int)
@@ -788,7 +788,7 @@
(let ((unused-result (funcall fun node)))
(when unused-result
(let ((*compiler-error-context* node))
- (compiler-warning _"The return value of ~A should not be discarded."
+ (compiler-warning _N"The return value of ~A should not be discarded."
(continuation-function-name (basic-combination-fun node))))))))
(let ((fun (function-info-destroyed-constant-args kind)))
@@ -1654,14 +1654,14 @@
(when total-nvals
(when (and min (< total-nvals min))
(compiler-warning
- _"MULTIPLE-VALUE-CALL with ~R values when the function expects ~
+ _N"MULTIPLE-VALUE-CALL with ~R values when the function expects ~
at least ~R."
total-nvals min)
(setf (basic-combination-kind node) :error)
(return-from ir1-optimize-mv-call))
(when (and max (> total-nvals max))
(compiler-warning
- _"MULTIPLE-VALUE-CALL with ~R values when the function expects ~
+ _N"MULTIPLE-VALUE-CALL with ~R values when the function expects ~
at most ~R."
total-nvals max)
(setf (basic-combination-kind node) :error)
Index: src/compiler/ir1tran.lisp
diff -u src/compiler/ir1tran.lisp:1.173.32.3 src/compiler/ir1tran.lisp:1.173.32.4
--- src/compiler/ir1tran.lisp:1.173.32.3 Wed Feb 24 22:59:43 2010
+++ src/compiler/ir1tran.lisp Wed Feb 24 23:35:40 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/compiler/ir1tran.lisp,v 1.173.32.3 2010-02-25 03:59:43 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/ir1tran.lisp,v 1.173.32.4 2010-02-25 04:35:40 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -208,7 +208,7 @@
"in a dynamic-extent declaration")))))
(t
(compiler-warning
- _"~@<Invalid name ~s in a dynamic-extent declaration.~@:>"
+ _N"~@<Invalid name ~s in a dynamic-extent declaration.~@:>"
name))))
(if (dynamic-extent)
(make-lexenv :default lexenv :dynamic-extent (dynamic-extent))
@@ -1130,7 +1130,7 @@
(cond ((eq int *empty-type*)
(unless (policy nil (= brevity 3))
(compiler-warning
- _"Conflicting type declarations ~
+ _N"Conflicting type declarations ~
~S and ~S for ~S."
(type-specifier old-type)
(type-specifier type)
@@ -1310,7 +1310,7 @@
(if (or (lexenv-find name variables)
(lexenv-find-function name))
(compiler-note _N"Ignoring free ignore declaration for ~S." name)
- (compiler-warning _"Ignore declaration for unknown variable ~S."
+ (compiler-warning _N"Ignore declaration for unknown variable ~S."
name)))
((and (consp var)
(eq (car var) 'macro)
@@ -1401,7 +1401,7 @@
((info declaration recognized what)
res)
(t
- (compiler-warning _"Unrecognized declaration: ~S." spec)
+ (compiler-warning _N"Unrecognized declaration: ~S." spec)
res))))))
@@ -2831,7 +2831,7 @@
(when (member kind '(:special :constant))
(compiler-error _"Attempt to bind a special or constant variable with SYMBOL-MACROLET: ~S." name)))
(when (assoc name (res) :test #'eq)
- (compiler-warning _"Repeated name in SYMBOL-MACROLET: ~S." name))
+ (compiler-warning _N"Repeated name in SYMBOL-MACROLET: ~S." name))
(res `(,name . (MACRO . ,def)))))
(let* ((*lexical-environment* (make-lexenv :variables (res)))
@@ -3018,7 +3018,7 @@
(setq ignore t))
(t
(setq ignore t)
- (compiler-warning _"Unrecognized proclamation: ~S."
+ (compiler-warning _N"Unrecognized proclamation: ~S."
form)))))
(unless ignore
@@ -3290,7 +3290,7 @@
(when (and (not intersects)
(not (policy nil (= brevity 3))))
(compiler-warning
- _"Type ~S in ~S declaration conflicts with enclosing assertion:~% ~S"
+ _N"Type ~S in ~S declaration conflicts with enclosing assertion:~% ~S"
(type-specifier ctype) name (type-specifier old-type)))
(make-lexenv :type-restrictions `((,cont . ,new))
:default lexenv)))
@@ -3664,7 +3664,7 @@
(remhash name *free-functions*)
(undefine-function-name name)
(compiler-warning
- _"Defining ~S to be a macro when it was ~(~A~) to be a function."
+ _N"Defining ~S to be a macro when it was ~(~A~) to be a function."
name (info function where-from name)))
(:macro)
(:special-form
@@ -3733,11 +3733,11 @@
(case kind
(:constant
(unless (equalp value (info variable constant-value name))
- (compiler-warning _"Redefining constant ~S as:~% ~S"
+ (compiler-warning _N"Redefining constant ~S as:~% ~S"
name value)))
(:global)
(t
- (compiler-warning _"Redefining ~(~A~) ~S to be a constant."
+ (compiler-warning _N"Redefining ~(~A~) ~S to be a constant."
kind name))))
(setf (info variable kind name) :constant)
Index: src/compiler/ir1util.lisp
diff -u src/compiler/ir1util.lisp:1.110.26.3 src/compiler/ir1util.lisp:1.110.26.4
--- src/compiler/ir1util.lisp:1.110.26.3 Wed Feb 24 22:59:43 2010
+++ src/compiler/ir1util.lisp Wed Feb 24 23:35:40 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/compiler/ir1util.lisp,v 1.110.26.3 2010-02-25 03:59:43 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/ir1util.lisp,v 1.110.26.4 2010-02-25 04:35:40 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -2172,7 +2172,7 @@
;;;
(defun compiler-warning (format-string &rest format-args)
(declare (string format-string))
- (apply #'warn format-string format-args)
+ (apply #'warn (intl:gettext format-string) format-args)
(values))
;;;
(defun compiler-note (format-string &rest format-args)
@@ -2181,7 +2181,7 @@
(policy *compiler-error-context* (= brevity 3))
(policy nil (= brevity 3)))
(warn 'simple-style-warning
- :format-control (intl::dgettext intl::*default-domain* format-string)
+ :format-control (intl:gettext format-string)
:format-arguments format-args))
(values))
@@ -2250,7 +2250,7 @@
(handler-case (apply function args)
(error (condition)
(let ((*compiler-error-context* node))
- (compiler-warning "Lisp error during ~A:~%~A" context condition)
+ (compiler-warning _N"Lisp error during ~A:~%~A" context condition)
(return-from careful-call (values nil nil))))))
t))
Index: src/compiler/locall.lisp
diff -u src/compiler/locall.lisp:1.60.24.3 src/compiler/locall.lisp:1.60.24.4
--- src/compiler/locall.lisp:1.60.24.3 Wed Feb 24 22:59:43 2010
+++ src/compiler/locall.lisp Wed Feb 24 23:35:40 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/compiler/locall.lisp,v 1.60.24.3 2010-02-25 03:59:43 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/locall.lisp,v 1.60.24.4 2010-02-25 04:35:40 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -458,7 +458,7 @@
(convert-call ref call fun))
(t
(compiler-warning
- _"Function called with ~R argument~:P, but wants exactly ~R."
+ _N"Function called with ~R argument~:P, but wants exactly ~R."
call-args nargs)
(setf (basic-combination-kind call) :error)))))
@@ -480,7 +480,7 @@
(max-args (optional-dispatch-max-args fun))
(call-args (length (combination-args call))))
(cond ((< call-args min-args)
- (compiler-warning _"Function called with ~R argument~:P, but wants at least ~R."
+ (compiler-warning _N"Function called with ~R argument~:P, but wants at least ~R."
call-args min-args)
(setf (basic-combination-kind call) :error))
((<= call-args max-args)
@@ -490,7 +490,7 @@
((optional-dispatch-more-entry fun)
(convert-more-call ref call fun))
(t
- (compiler-warning _"Function called with ~R argument~:P, but wants at most ~R."
+ (compiler-warning _N"Function called with ~R argument~:P, but wants at most ~R."
call-args max-args)
(setf (basic-combination-kind call) :error))))
(undefined-value))
@@ -566,7 +566,7 @@
(key-vars var))
((:rest :optional))
((:more-context :more-count)
- (compiler-warning _"Can't local-call functions with &MORE args.")
+ (compiler-warning _N"Can't local-call functions with &MORE args.")
(setf (basic-combination-kind call) :error)
(return-from convert-more-call))))))
@@ -578,7 +578,7 @@
(when (optional-dispatch-keyp fun)
(when (oddp (length more))
- (compiler-warning _"Function called with odd number of ~
+ (compiler-warning _N"Function called with odd number of ~
arguments in keyword portion.")
(setf (basic-combination-kind call) :error)
@@ -624,7 +624,7 @@
(return)))))))
(when (and loser (not (optional-dispatch-allowp fun)) (not allowp))
- (compiler-warning _"Function called with unknown argument keyword ~S."
+ (compiler-warning _N"Function called with unknown argument keyword ~S."
(car loser))
(setf (basic-combination-kind call) :error)
(return-from convert-more-call)))
Index: src/compiler/ltn.lisp
diff -u src/compiler/ltn.lisp:1.43.36.3 src/compiler/ltn.lisp:1.43.36.4
--- src/compiler/ltn.lisp:1.43.36.3 Wed Feb 24 22:59:43 2010
+++ src/compiler/ltn.lisp Wed Feb 24 23:35:40 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/compiler/ltn.lisp,v 1.43.36.3 2010-02-25 03:59:43 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/ltn.lisp,v 1.43.36.4 2010-02-25 04:35:40 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -1010,7 +1010,7 @@
(ir1-attributep (function-info-attributes info)
recursive)))))
(let ((*compiler-error-context* call))
- (compiler-warning _"Recursive known function definition.")))
+ (compiler-warning _N"Recursive known function definition.")))
(ltn-default-call call policy)
(return-from ltn-analyze-known-call (undefined-value)))
(setf (basic-combination-info call) template)
Index: src/compiler/main.lisp
diff -u src/compiler/main.lisp:1.148.2.5 src/compiler/main.lisp:1.148.2.6
--- src/compiler/main.lisp:1.148.2.5 Wed Feb 24 19:33:12 2010
+++ src/compiler/main.lisp Wed Feb 24 23:35:40 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/compiler/main.lisp,v 1.148.2.5 2010-02-25 00:33:12 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/main.lisp,v 1.148.2.6 2010-02-25 04:35:40 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -584,12 +584,12 @@
(warnings (undefined-warning-warnings undef))
(count (undefined-warning-count undef)))
(dolist (*compiler-error-context* warnings)
- (compiler-warning _"Undefined ~(~A~) ~S~@[ ~A~]" kind name context))
+ (compiler-warning _N"Undefined ~(~A~) ~S~@[ ~A~]" kind name context))
(let ((warn-count (length warnings)))
(when (and warnings (> count warn-count))
(let ((more (- count warn-count)))
- (compiler-warning _"~D more use~:P of undefined ~(~A~) ~S."
+ (compiler-warning _N"~D more use~:P of undefined ~(~A~) ~S."
more kind name)))))))
(dolist (kind '(:variable :function :type))
@@ -598,7 +598,7 @@
:key #'undefined-warning-kind))))
(when summary
(compiler-warning
- _"~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
+ _N"~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
~% ~{~<~% ~1:;~S~>~^ ~}"
(cdr summary) kind summary)))))))
@@ -1092,7 +1092,7 @@
(compiler-error _"Bad FILE-COMMENT form: ~S." form))
(let ((file (first (source-info-current-file *source-info*))))
(cond ((file-info-comment file)
- (compiler-warning _"Ignoring extra file comment:~% ~S." form))
+ (compiler-warning _N"Ignoring extra file comment:~% ~S." form))
(t
(let ((comment (coerce (second form) 'simple-string)))
(setf (file-info-comment file) comment)
Index: src/compiler/proclaim.lisp
diff -u src/compiler/proclaim.lisp:1.44.24.3 src/compiler/proclaim.lisp:1.44.24.4
--- src/compiler/proclaim.lisp:1.44.24.3 Wed Feb 24 22:59:43 2010
+++ src/compiler/proclaim.lisp Wed Feb 24 23:35:40 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/compiler/proclaim.lisp,v 1.44.24.3 2010-02-25 03:59:43 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/proclaim.lisp,v 1.44.24.4 2010-02-25 04:35:40 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -220,7 +220,7 @@
(when (or (info setf inverse name)
(info setf expander name))
(compiler-warning
- _"Defining as a SETF function a name that already has a SETF macro:~
+ _N"Defining as a SETF function a name that already has a SETF macro:~
~% ~S"
name)))
(undefined-value))
@@ -242,13 +242,13 @@
(let ((for (info function accessor-for name)))
(when for
(compiler-warning
- _"Undefining structure type:~% ~S~@
+ _N"Undefining structure type:~% ~S~@
so that this slot accessor can be redefined:~% ~S"
(%class-name for) name)
(undefine-structure for)
(setf (info function kind name) :function))))
(:macro
- (compiler-warning _"~S previously defined as a macro." name)
+ (compiler-warning _N"~S previously defined as a macro." name)
(setf (info function kind name) :function)
(setf (info function where-from name) :assumed)
(clear-info function macro-function name))
@@ -304,10 +304,10 @@
((inhibit-warnings brevity) (setf (cookie-brevity res) value))
((debug-info debug) (setf (cookie-debug res) value))
(t
- (compiler-warning _"Unknown optimization quality ~S in ~S."
+ (compiler-warning _N"Unknown optimization quality ~S in ~S."
(car quality) spec))))
(compiler-warning
- _"Malformed optimization quality specifier ~S in ~S."
+ _N"Malformed optimization quality specifier ~S in ~S."
quality spec))))
res))
Index: src/compiler/seqtran.lisp
diff -u src/compiler/seqtran.lisp:1.33.10.3 src/compiler/seqtran.lisp:1.33.10.4
--- src/compiler/seqtran.lisp:1.33.10.3 Wed Feb 24 22:59:43 2010
+++ src/compiler/seqtran.lisp Wed Feb 24 23:35:40 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/compiler/seqtran.lisp,v 1.33.10.3 2010-02-25 03:59:43 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/seqtran.lisp,v 1.33.10.4 2010-02-25 04:35:40 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -651,7 +651,7 @@
(let ((spec (continuation-value output-spec)))
(if (subtypep spec 'sequence)
(specifier-type spec)
- (compiler-warning _"Specified output type ~S is not a sequence type" spec)))))
+ (compiler-warning _N"Specified output type ~S is not a sequence type" spec)))))
(defoptimizer (concatenate derive-type) ((output-spec seq &rest more-seq))
;; The result type of CONCATENATE is OUTPUT-SPEC, but check to see
Index: src/compiler/srctran.lisp
diff -u src/compiler/srctran.lisp:1.170.12.3 src/compiler/srctran.lisp:1.170.12.4
--- src/compiler/srctran.lisp:1.170.12.3 Wed Feb 24 22:59:43 2010
+++ src/compiler/srctran.lisp Wed Feb 24 23:35:40 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/compiler/srctran.lisp,v 1.170.12.3 2010-02-25 03:59:43 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/srctran.lisp,v 1.170.12.4 2010-02-25 04:35:40 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -3732,7 +3732,7 @@
(cond ((stringp min-args)
(compiler-warning "~a" min-args))
((< nargs min-args)
- (compiler-warning _"~s: too few args (~d), need at least ~d"
+ (compiler-warning _N"~s: too few args (~d), need at least ~d"
context nargs min-args))
((> nargs max-args)
(compiler-note _N"~s: too many args (~d), wants at most ~d"
Index: src/compiler/typetran.lisp
diff -u src/compiler/typetran.lisp:1.45.38.3 src/compiler/typetran.lisp:1.45.38.4
--- src/compiler/typetran.lisp:1.45.38.3 Wed Feb 24 22:59:44 2010
+++ src/compiler/typetran.lisp Wed Feb 24 23:35:40 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/compiler/typetran.lisp,v 1.45.38.3 2010-02-25 03:59:44 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/typetran.lisp,v 1.45.38.4 2010-02-25 04:35:40 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -516,7 +516,7 @@
(member-type
`(member ,object ',(member-type-members type)))
(args-type
- (compiler-warning _"Illegal type specifier for Typep: ~S."
+ (compiler-warning _N"Illegal type specifier for Typep: ~S."
(cadr spec))
`(%typep ,object ,spec))
(t nil))
More information about the cmucl-commit
mailing list