Changeset 9843 for trunk/tests


Ignore:
Timestamp:
Jun 27, 2008, 6:13:52 PM (11 years ago)
Author:
gz
Message:

Fix typo in advise test

File:
1 edited

Legend:

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

    r9841 r9843  
    532532    (ccl:advise generic-function-to-advise.18 (push 'advise.18-1 *advise-var*) :name test-1)
    533533    (trace generic-function-to-advise.18)
    534     (ccl:advise function-to-advise.18 (push 'advise.18-2 *advise-var*) :name test-2)
     534    (ccl:advise generic-function-to-advise.18 (push 'advise.18-2 *advise-var*) :name test-2)
    535535    (prog1
    536536        (list (not (equal "" (with-output-to-string (*trace-output*)
     
    547547      (ccl:unadvise t)
    548548      (untrace)))
    549   (t (advise.18-1 advise.18-2 none) ((function-to-advise :before test-1))
     549  (t (advise.18-1 advise.18-2 none) ((generic-function-to-advise.18 :before test-1))
    550550     t (advise.18-2 advise.18-1 advise.18-2 none) (generic-function-to-advise.18) ""
    551551     (advise.18-2 advise.18-2 advise.18-1 advise.18-2 none)))
Note: See TracChangeset for help on using the changeset viewer.