/[gcl]/gcl/ansi-tests/packages-03.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/packages-03.lsp

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

revision 1.1 by pfdietz, Thu Sep 26 16:53:38 2002 UTC revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC
# Line 108  Line 108 
108     (not     (not
109      (let ((name (package-name p)))      (let ((name (package-name p)))
110        (and (stringp name)        (and (stringp name)
111             (eq (find-package name) p)))))             (eqt (find-package name) p)))))
112    0)    0)
113    
114  ;; package-name applied to a package's name  ;; package-name applied to a package's name
# Line 183  Line 183 
183      for nk in (package-nicknames p) count      for nk in (package-nicknames p) count
184           (not           (not
185            (and (stringp nk)            (and (stringp nk)
186                 (eq p (find-package nk))))))                 (eqt p (find-package nk))))))
187    0)    0)

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

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