68 |
(dolist (,q (cons ,p (package-use-list ,p)) (progn (setq ,var nil) ,result-form)) |
(dolist (,q (cons ,p (package-use-list ,p)) (progn (setq ,var nil) ,result-form)) |
69 |
(multiple-value-bind |
(multiple-value-bind |
70 |
(,y ,x) (package-size ,q) |
(,y ,x) (package-size ,q) |
71 |
(declare (fixnum ,x ,y)) |
(declare ((integer 0 1048573) ,x ,y)) |
72 |
(if (not (eq ,p ,q)) (setq ,x 0)) |
(if (not (eq ,p ,q)) (setq ,x 0)) |
73 |
(dotimes (,i (+ ,x ,y)) |
(dotimes (,i (+ ,x ,y)) |
74 |
(setq ,l (if (< ,i ,x) |
(setq ,l (if (< ,i ,x) |
186 |
(specific-error :too-few-arguments "Symbol type specifiers must be supplied.")) |
(specific-error :too-few-arguments "Symbol type specifiers must be supplied.")) |
187 |
`(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) |
188 |
(,i -1) (,x 0) (,y 0) (,dum nil) (,access nil)) |
(,i -1) (,x 0) (,y 0) (,dum nil) (,access nil)) |
189 |
(declare (fixnum ,x ,y)) |
(declare ((integer 0 1048573) ,x ,y)) |
190 |
(flet ((,name () |
(flet ((,name () |
191 |
(tagbody ,name |
(tagbody ,name |
192 |
(when (null (setq ,l (cdr ,l))) |
(when (null (setq ,l (cdr ,l))) |