/[gcl]/gcl/ansi-tests/cons-test-01.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-01.lsp

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

revision 1.7 by pfdietz, Fri Jan 24 04:22:54 2003 UTC revision 1.8 by pfdietz, Wed Jan 29 02:11:54 2003 UTC
# Line 388  Line 388 
388    (classify-error (rplaca (cons 'a 'b) (cons 'c 'd) 'garbage))    (classify-error (rplaca (cons 'a 'b) (cons 'c 'd) 'garbage))
389    program-error)    program-error)
390    
391    (deftest rplaca.error.5
392      (classify-error (rplaca 'a 1))
393      type-error)
394    
395    (deftest rplaca.error.6
396      (classify-error (locally (rplaca 'a 1) t))
397      type-error)
398    
399  ;; rplacd on a fixnum is a type error  ;; rplacd on a fixnum is a type error
400  (deftest rplacd.error.1  (deftest rplacd.error.1
401    (loop for x in *universe*    (loop for x in *universe*
# Line 407  Line 415 
415    (classify-error (rplacd (cons 'a 'b) (cons 'c 'd) 'garbage))    (classify-error (rplacd (cons 'a 'b) (cons 'c 'd) 'garbage))
416    program-error)    program-error)
417    
418    (deftest rplacd.error.5
419      (classify-error (rplacd 'a 1))
420      type-error)
421    
422    (deftest rplacd.error.6
423      (classify-error (locally (rplacd 'a 1) t))
424      type-error)

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

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