Ignore:
Timestamp:
Oct 18, 2010, 10:36:38 PM (9 years ago)
Author:
gz
Message:

Don't muffle warnings when running test, as that affects the return values from compile-file. Tweak tests to not cause warnings

File:
1 edited

Legend:

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

    r8991 r14368  
    310310    (eval `(defun ,sym () (declare (special *x*)) *x*))
    311311    (eval `(define-setf-expander ,sym ()
    312              (let ((g (gemsym)))
     312             (let ((g (gensym)))
    313313               (values nil nil (list g) `(locally (declare (special *x*)) (setf *x* ,g))
    314314                       '(locally (declare (special *x*)) *x*)))))
     
    326326    (eval `(defmacro ,sym () `(locally (declare (special *x*)) *x*)))
    327327    (eval `(define-setf-expander ,sym ()
    328              (let ((g (gemsym)))
     328             (let ((g (gensym)))
    329329               (values nil nil (list g) `(locally (declare (special *x*)) (setf *x* ,g))
    330330                       '(locally (declare (special *x*)) *x*)))))
Note: See TracChangeset for help on using the changeset viewer.