/[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.8 by camm, Sun Nov 3 18:06:49 2002 UTC revision 1.9 by camm, Tue Jan 21 16:41:49 2003 UTC
# Line 177  Line 177 
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)))
# Line 213  Line 214 
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    

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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