177 |
(if (null symbol-types) |
(if (null symbol-types) |
178 |
(specific-error :too-few-arguments "Symbol type specifiers must be supplied")) |
(specific-error :too-few-arguments "Symbol type specifiers must be supplied")) |
179 |
`(let ((,p (cons t (if (atom ,plist) (list ,plist) ,plist))) (,q nil) (,l nil) |
`(let ((,p (cons t (if (atom ,plist) (list ,plist) ,plist))) (,q nil) (,l nil) |
180 |
(,i -1) (,x 0) (,y 0)) |
(,i -1) (,x 0) (,y 0) (,dum nil) (,access nil)) |
181 |
|
(declare (fixnum ,x ,y)) |
182 |
(flet ((,name () |
(flet ((,name () |
183 |
(tagbody ,name |
(tagbody ,name |
184 |
(when (null (setq ,l (cdr ,l))) |
(when (null (setq ,l (cdr ,l))) |
214 |
(not (eq (car ,p) (car ,q)))) |
(not (eq (car ,p) (car ,q)))) |
215 |
(go ,name))) |
(go ,name))) |
216 |
(values 't (car ,l) ,access (car ,p)))) |
(values 't (car ,l) ,access (car ,p)))) |
|
(declare (fixnum ,x ,y)) |
|
217 |
,@declaration |
,@declaration |
218 |
,@body)))) |
,@body)))) |
219 |
|
|