Changeset 35060 in project


Ignore:
Timestamp:
01/23/18 18:12:47 (9 months ago)
Author:
kon
Message:

oohkeyy , that seems reasonable

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/apropos/trunk/tests/apropos-test.scm

    r35059 r35060  
    7575  (test "apropos-information-list" (sort lst cdar-symbol<?) (sort val cdar-symbol<?)) )
    7676
     77#|
     78#;15> '(((|| . foobarmacro1) . macro))
     79(((||: . foobarmacro1) . macro))
     80#;16> '(((||: . foobarmacro1) . macro))
     81(((: . foobarmacro1) . macro))
     82#;17> ||
     83||:
     84#;18> ||:
     85
     86Error: unbound variable: :
     87#;18> ||
     88||:
     89|#
     90
    7791(cond-expand
    7892  (compiling
    79     ;reads (|| . foobarmacro1) as ( . foobarmacro1) - whatever the car is i don't know
     93    ;reads (|| . foobarmacro1) as ( . foobarmacro1)
    8094    )
    8195  (else
     96    ;oh , my : #:|| from reader is not eq? #:|| from symbol-table
    8297    (apropos-information-list-test
    83       '(((|| . foobarmacro1) . macro)
     98      '(
     99        ((|| . foobarmacro1) . macro)
    84100        ((|| . foobarmacro2) . macro)
    85101        ((|| . foobarproc0) procedure)
Note: See TracChangeset for help on using the changeset viewer.