Changeset 13936

Timestamp:

05/16/12 09:13:11 (10 years ago)

Author:

Mark Evenson

Message:

abcl-test-lisp: add test for ticket #199.

Fix test for tciekt #205.

File:

• trunk/abcl/test/lisp/abcl/bugs.lisp (modified) (1 diff)

trunk/abcl/test/lisp/abcl/bugs.lisp

@@ -105 +105 @@
   t)
 
-
-      
+;;; http://trac.common-lisp.net/armedbear/ticket/205
 (deftest bugs.with-constant-signature.1 
-    (with-constant-signature ((substring "substring")) 
-      (substring "some string" 2))
+    (progn 
+      (require :abcl-contrib)
+      (require :jss)
+      (jss:with-constant-signature ((substring "substring")) 
+        (substring "some string" 2)))
   t)
 
+
+;;; http://trac.common-lisp.net/armedbear/ticket/199
+(deftest bugs.clos.aux.1 
+    ;;; XXX possible collision with previously defined names
+    (progn
+      (defclass room ()
+        ((decorators :reader room-decorators)))
+      (defgeneric decorators (room))
+      (defmethod decorators ((room room) 
+                             &aux (d (decorators room)))
+        d)
+      (decorators (make-instance 'room)))
+  t)
+