Changeset 13936


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/test/lisp/abcl/bugs.lisp

    r13906 r13936  
    105105  t)
    106106
    107 
    108      
     107;;; http://trac.common-lisp.net/armedbear/ticket/205
    109108(deftest bugs.with-constant-signature.1
    110     (with-constant-signature ((substring "substring"))
    111       (substring "some string" 2))
     109    (progn
     110      (require :abcl-contrib)
     111      (require :jss)
     112      (jss:with-constant-signature ((substring "substring"))
     113        (substring "some string" 2)))
    112114  t)
    113115
     116
     117;;; http://trac.common-lisp.net/armedbear/ticket/199
     118(deftest bugs.clos.aux.1
     119    ;;; XXX possible collision with previously defined names
     120    (progn
     121      (defclass room ()
     122        ((decorators :reader room-decorators)))
     123      (defgeneric decorators (room))
     124      (defmethod decorators ((room room)
     125                             &aux (d (decorators room)))
     126        d)
     127      (decorators (make-instance 'room)))
     128  t)
     129     
Note: See TracChangeset for help on using the changeset viewer.