/[gcl]/gcl/ansi-tests/position.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/position.lsp

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

revision 1.2 by camm, Wed Oct 9 19:05:01 2002 UTC revision 1.3 by pfdietz, Sun Oct 13 10:42:08 2002 UTC
# Line 586  Line 586 
586    
587  (deftest position-error.4  (deftest position-error.4
588    (locally (declare (optimize (safety 3)))    (locally (declare (optimize (safety 3)))
589             (handler-case (position 'a '(a b c . d))             (handler-case (position 'e '(a b c . d))
590                           (type-error () :type-error)                           (type-error () :type-error)
591                           (error (c) c)))                           (error (c) c)))
592    :type-error)    :type-error)

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