/[gcl]/gcl/ansi-tests/find-package.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/find-package.lsp

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

revision 1.2 by pfdietz, Sun Aug 29 02:43:39 2004 UTC revision 1.3 by pfdietz, Mon Aug 30 12:14:07 2004 UTC
# Line 115  Line 115 
115    t)    t)
116    
117  (deftest find-package.16  (deftest find-package.16
118    (let* ((name (make-array '(7) :initial-contents "KEYWORDXYZ"    (let* ((name (make-array '(10) :initial-contents "KEYWORDXYZ"
119                             :adjustable t                             :adjustable t
120                             :element-type 'base-char))                             :element-type 'base-char))
121           (p (find-package name)))           (p (find-package name)))
# Line 123  Line 123 
123    t)    t)
124    
125  (deftest find-package.17  (deftest find-package.17
126    (let* ((name (make-array '(7) :initial-contents "KEYWORDXYZ"    (let* ((name (make-array '(10) :initial-contents "KEYWORDXYZ"
127                             :adjustable t                             :adjustable t
128                             :element-type 'character))                             :element-type 'character))
129           (p (find-package name)))           (p (find-package name)))

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