Raymond Toy pushed to branch issue-417-defmethod-check-aux-vars at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • tests/pcl/defmethod.lisp
    ... ... @@ -75,7 +75,9 @@
    75 75
     (define-defmethod-test-1 defmethod.21 dm2 nil (x &optional y z))
    
    76 76
     (define-defmethod-test-1 defmethod.22 dm2 nil (x &key y))
    
    77 77
     (define-defmethod-test-1 defmethod.23 dm2 nil (x y &aux (x x) (y y)))
    
    78
    -
    
    78
    +(define-defmethod-test-1 defmethod.23 dm2 nil (x y &aux z))
    
    79
    +(define-defmethod-test-1 defmethod.23 dm2 nil (x y &aux z z))
    
    80
    +(define-defmethod-test-1 defmethod.23 dm2 nil (x y &aux z (z z)))
    
    79 81
     ;;;
    
    80 82
     ;;; A forward-referenced class used as specializer signaled an
    
    81 83
     ;;; error at some point.