/[gcl]/gcl/lsp/packlib.lsp
ViewVC logotype

Diff of /gcl/lsp/packlib.lsp

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

revision 1.2 by camm, Tue Oct 15 14:51:51 2002 UTC revision 1.3 by camm, Thu Oct 17 20:57:53 2002 UTC
# Line 78  Line 78 
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))))))
# Line 106  Line 106 
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)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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