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

Diff of /gcl/lsp/gcl_packlib.lsp

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

revision 1.4 by camm, Sat Jul 24 13:14:29 2004 UTC revision 1.5 by camm, Tue Dec 21 04:51:27 2004 UTC
# Line 68  Line 68 
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)
# Line 186  Line 186 
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)))

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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