/[gcl]/gcl/ansi-tests/ansi-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/ansi-aux.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.121 by pfdietz, Fri May 6 01:13:40 2005 UTC revision 1.122 by pfdietz, Fri May 6 13:34:41 2005 UTC
# Line 1144  the condition to go uncaught if it canno Line 1144  the condition to go uncaught if it canno
1144      (rational 0)))      (rational 0)))
1145    
1146  (defun sequencep (x) (typep x 'sequence))  (defun sequencep (x) (typep x 'sequence))
1147    
1148    (defun typef (type) #'(lambda (x) (typep x type)))
1149    
1150    (defun package-designator-p (x)
1151      "TRUE if x could be a package designator.  The package need not
1152       actually exist."
1153      (or (packagep x)
1154          (handler-case (and (locally (declare (optimize safety))
1155                                      (string x))
1156                             t)
1157                        (type-error () nil))))

Legend:
Removed from v.1.121  
changed lines
  Added in v.1.122

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26