File: undefined-classoid-bug.test.sh

package info (click to toggle)
sbcl 1%3A0.9.16.0-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 19,960 kB
  • ctags: 16,537
  • sloc: lisp: 231,164; ansic: 19,558; asm: 2,539; sh: 1,925; makefile: 308
file content (26 lines) | stat: -rw-r--r-- 587 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
# This file run a regression test for a bug in loading
# forward-referenced layouts.

FILES='"undefined-classoid-bug-1.lisp" "undefined-classoid-bug-2.lisp"'
FASLS='"undefined-classoid-bug-1.fasl" "undefined-classoid-bug-2.fasl"'

${SBCL:-sbcl} <<EOF
(let ((files (list $FILES)))
  (mapc #'load files)
  (mapc #'compile-file files))
(quit :unix-status 52)
EOF

${SBCL:-sbcl} <<EOF
(mapc #'load (list $FASLS))
(quit :unix-status 52)
EOF

if [ $? != 52 ]; then
    rm $FASLS
    echo undefined-classoid-bug test failed: $?
    exit 1 # Failure
fi

# success convention for script
exit 104