Parent Directory | Revision Log | 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)))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |