78 |
(if (or (eq ,q ,p) |
(if (or (eq ,q ,p) |
79 |
(eq :inherited (car (last (multiple-value-list |
(eq :inherited (car (last (multiple-value-list |
80 |
(find-symbol (symbol-name ,var) ,p)))))) |
(find-symbol (symbol-name ,var) ,p)))))) |
81 |
(progn ,@body)) |
(tagbody ,@body)) |
82 |
(setq ,l (cdr ,l)) |
(setq ,l (cdr ,l)) |
83 |
(go ,loop) |
(go ,loop) |
84 |
,break)))))) |
,break)))))) |
106 |
(defmacro do-all-symbols((var &optional (result-form nil)) . body) |
(defmacro do-all-symbols((var &optional (result-form nil)) . body) |
107 |
`(dolist (.v (list-all-packages) ,result-form) |
`(dolist (.v (list-all-packages) ,result-form) |
108 |
(do-symbols (,var .v) |
(do-symbols (,var .v) |
109 |
,@ body))) |
(tagbody ,@ body)))) |
110 |
|
|
111 |
|
|
112 |
(defun substringp (sub str) |
(defun substringp (sub str) |