Changeset 10833


Ignore:
Timestamp:
Sep 22, 2008, 3:49:49 PM (11 years ago)
Author:
gz
Message:

Add a couple regression tests, and some ignorable declarations

Location:
trunk/tests/ansi-tests
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/ccl.lsp

    r10609 r10833  
    432432
    433433
    434 
    435 
     434#+ccl-0711
     435(deftest ccl.47102
     436    (handler-case
     437        (progn
     438          (defclass ccl.47102 () ((slot :allocation :class)))
     439          ;; This happens as part of snap-reader-methods optimization
     440          (ccl::optimize-make-instance-for-class-cell (gethash 'ccl.47102 ccl::%find-classes%))
     441          :no-warnings)
     442      (warning (c) :warning))
     443  :no-warnings)
     444 
     445
     446(deftest ccl.47762
     447    (let ((file (test-source-file
     448                  "(defun ccl.47762 ()
     449                     (funcall (find-symbol \"TEST.47762a\" \"NO_SUCH_PACKAGE\"))
     450                     (funcall (intern \"TEST.47762b\" \"NO_SUCH_PACKAGE-1\")))")))
     451      (handler-case
     452          (progn (test-compile file :load t) :no-error)
     453        (error (c) c)))
     454  :no-error)
    436455
    437456
  • trunk/tests/ansi-tests/defun.lsp

    r8991 r10833  
    113113          for expected = '(1 2 3)
    114114          for fn = (eval `(prog2 (proclaim '(optimize (safety 0)))
    115                                  (defun ,name ,params (values ,@expected))
     115                                 (defun ,name ,params
     116                                   (declare (ignorable ,@params))
     117                                   (values ,@expected))
    116118                                 (proclaim '(optimize safety))))
    117119          when
  • trunk/tests/ansi-tests/set.lsp

    r8991 r10833  
    99  (let ((*var-used-in-set-tests* 'a)
    1010        (var '*var-used-in-set-tests*))
    11     (declare (special *var-used-in-set-tests*))
     11    (declare (special *var-used-in-set-tests*) (ignorable var))
    1212    (values
    1313     *var-used-in-set-tests*
     
    1919  (let ((*var-used-in-set-tests* 'a)
    2020        (var '*var-used-in-set-tests*))
    21     (declare (special *var-used-in-set-tests*))
     21    (declare (special *var-used-in-set-tests*) (ignorable var))
    2222    (values
    2323     (let ((*var-used-in-set-tests* 'c))
  • trunk/tests/ansi-tests/symbol-macrolet.lsp

    r8991 r10833  
    3333             y
    3434             (let ((x 20)) x)
    35              (let ((y 30)) x)
    36              (let ((y 50)) y)
     35             (let ((y 30)) (declare (ignorable y)) x)
     36             (let ((y 50)) (declare (ignorable x)) y)
    3737             x
    3838             y)))
     
    5858  (signals-error
    5959   (symbol-macrolet ((x 10))
    60      (declare (special x))
     60     (declare (special x) (ignorable x))
    6161     20)
    6262   program-error)
Note: See TracChangeset for help on using the changeset viewer.