Changeset 37132 in project
- Timestamp:
- 01/26/19 16:29:22 (2 years ago)
- Location:
- release/5/apropos/trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
release/5/apropos/trunk/apropos.egg
r37126 r37132 5 5 6 6 ((synopsis "CHICKEN apropos") 7 (version "3.3. 2")7 (version "3.3.3") 8 8 (category misc) 9 9 (author "[[kon lovett]]") -
release/5/apropos/trunk/tests/apropos-test.scm
r37095 r37132 116 116 |# 117 117 118 (cond-expand 119 (compiling 120 ;reads (|| . foobarmacro1) as ( . foobarmacro1) 121 ) 122 (else 123 ;oh , my : #:|| from reader is not eq? #:|| from symbol-table 124 (apropos-information-list-test 125 '( 126 ((|| . foobarmacro1) . macro) 127 ((|| . foobarmacro2) . macro) 128 ((|| . foobarproc0) procedure) 129 ((|| . foobarproc1) procedure a) 130 ((|| . foobarproc2) procedure a b) 131 ((|| . foobarprocn) procedure a b . r) 132 ((|| . foobarprocx) procedure a b c) 133 ((|| . foobarvar1) . variable) 134 ((|| . foobarvar2) . variable) ) 135 (apropos-information-list 'foobar #:macros? #t #:internal? #t)) 136 (test "apropos-information-list" 137 '(((|| . foobarproc0) procedure) 138 ((|| . foobarproc1) procedure a) 139 ((|| . foobarproc2) procedure a b) 140 ((|| . foobarprocn) procedure a b . r) 141 ((|| . foobarprocx) procedure a b c)) 142 (apropos-information-list 'foobarproc #:macros? #t #:internal? #t #:sort #:module)) ) ) 118 ;oh , my - #:|| from reader is not eq? #:|| from symbol-table 119 120 (apropos-information-list-test 121 '( 122 ((|| . foobarmacro1) . macro) 123 ((|| . foobarmacro2) . macro) 124 ((|| . foobarproc0) procedure) 125 ((|| . foobarproc1) procedure a) 126 ((|| . foobarproc2) procedure a b) 127 ((|| . foobarprocn) procedure a b . r) 128 ((|| . foobarprocx) procedure a b c) 129 ((|| . foobarvar1) . variable) 130 ((|| . foobarvar2) . variable) ) 131 (apropos-information-list 'foobar #:macros? #t #:internal? #t)) 132 (test "apropos-information-list" 133 '(((|| . foobarproc0) procedure) 134 ((|| . foobarproc1) procedure a) 135 ((|| . foobarproc2) procedure a b) 136 ((|| . foobarprocn) procedure a b . r) 137 ((|| . foobarprocx) procedure a b c)) 138 (apropos-information-list 'foobarproc #:macros? #t #:internal? #t #:sort #:module)) 143 139 144 140 #| ;UNSUPPORTED -
release/5/apropos/trunk/tests/run.scm
r35819 r37132 12 12 (define *args* (argv)) 13 13 14 ;no -disable-interrupts 15 (define *csc-options* "-inline-global \14 ;no -disable-interrupts or -no-lambda-info 15 (define *csc-options* "-inline-global -local -inline \ 16 16 -specialize -optimize-leaf-routines -clustering -lfa2 \ 17 -local -inline \ 18 -no-trace -no-lambda-info \ 19 -unsafe") 17 -no-trace -unsafe") 20 18 21 19 (define (test-name #!optional (eggnam EGG-NAME))
Note: See TracChangeset
for help on using the changeset viewer.