/[gcl]/gcl/ansi-tests/vector-push-extend.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/vector-push-extend.lsp

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

revision 1.1 by pfdietz, Sat Jan 25 14:32:40 2003 UTC revision 1.2 by pfdietz, Mon Jan 27 12:54:08 2003 UTC
# Line 337  Line 337 
337    program-error)    program-error)
338    
339  (deftest vector-push-extend.error.17  (deftest vector-push-extend.error.17
340    (let ((a (make-array '5 :fill-pointer t :adjustable nil    (handler-case
341                         :initial-element nil)))     (eval
342      (declare (optimize (safety 3)))      `(locally
343      (or (notnot (adjustable-array-p a))  ;; It's actually adjustable, or...        (declare (optimize (safety 3)))
344          (handler-case (vector-push-extend a 'x) ;;; ... this fails        (let ((a (make-array '5 :fill-pointer t :adjustable nil
345                        (error () t))))                             :initial-element nil)))
346            (or (notnot (adjustable-array-p a))  ; It's actually adjustable, or...
347                (vector-push-extend a 'x)        ; ... this fails
348                ))))
349       (error () t))
350    t)    t)
351    
352    
353    
354    
355    
356    

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