Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
8744f0c3
Commit
8744f0c3
authored
Jun 04, 2005
by
pfdietz
Browse files
Export some symbols used in ba-test
parent
1f037a6d
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/cl-test-package.lsp
View file @
8744f0c3
...
...
@@ -3,27 +3,18 @@
;;;; Created: Sat Mar 14 10:13:21 1998
;;;; Contains: CL test case package definition
#|
(progn
(defpackage :cl-test
(:use :cl :regression-test)
(:nicknames)
(:shadow #:handler-case #:handler-bind)
(:import-from "COMMON-LISP-USER" #:compile-and-load)
(:export #:random-from-seq #:random-case #:coin #:random-permute))
(let ((s (find-symbol "QUIT" "CL-USER")))
(when s (import s :cl-test))))
|#
(let* ((name :cl-test)
(pkg (find-package name)))
(unless pkg (setq pkg (make-package name :use '(
#-wcl :cl #+wcl :lisp
:regression-test))))
(unless pkg (setq pkg (make-package name :use '(
:cl
:regression-test))))
(let ((*package* pkg))
(shadow '(#:handler-case #:handler-bind))
(import '(#-wcl common-lisp-user::compile-and-load
#+wcl user::compile-and-load)
(import '(common-lisp-user::compile-and-load)
pkg)
(export (mapcar #'intern (mapcar #'symbol-name '(#:random-from-seq #:random-case #:coin #:random-permute)))))
(export (mapcar #'intern
(mapcar #'symbol-name
'(#:random-from-seq #:random-case #:coin
#:random-permute #:*universe* #:*mini-universe*
#:signals-error #:typef)))))
(let ((s (find-symbol "QUIT" "CL-USER")))
(when s (import s :cl-test))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment