Skip to content
GitLab
Projects
Groups
Snippets
/
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
cb6beec3
Commit
cb6beec3
authored
Jun 05, 2004
by
camm
Browse files
Backport minimal ansi-test patches from HEAD to enable running of the random tester
parent
fb346e77
Changes
3
Hide whitespace changes
Inline
Side-by-side
ansi-tests/ansi-aux.lsp
View file @
cb6beec3
...
...
@@ -1426,3 +1426,32 @@ the condition to go uncaught if it cannot be classified."
(unsigned-byte 32) float short-float
single-float double-float long-float
nil character base-char symbol boolean null))
(defun random-partition (n p)
"Partition n into p numbers, each >= 1. Return list of numbers."
(assert (<= 1 p))
#|
(cond
((= p 1) (list n))
((< n p) (make-list p :initial-element 1))
(t
(let ((n1 (1+ (random (floor n p)))))
(cons n1 (random-partition (- n n1) (1- p)))))))
|#
(cond
((= p 1) (list n))
((= n 0) (make-list p :initial-element 0))
(t (let* ((r (random p))
(n1 (random (1+ n))))
(cond
((= r 0)
(cons n1 (random-partition (- n n1) (1- p))))
((= r (1- p))
(append (random-partition (- n n1) (1- p)) (list n1)))
(t
(let* ((n2 (random (1+ (- n n1))))
(n3 (- n n1 n2)))
(append (random-partition n2 r)
(list n1)
(random-partition n3 (- p 1 r))))))))))
ansi-tests/cl-symbol-names.lsp
View file @
cb6beec3
...
...
@@ -2145,6 +2145,9 @@
*cl-standard-generic-function-symbols*
'
(
declare
)))))
(
defparameter
*
cl
-
function
-
or
-
accessor
-
symbols
*
(
append
*
cl
-
function
-
symbols
*
*
cl
-
accessor
-
symbols
*))
(
defparameter
*
cl
-
non
-
variable
-
constant
-
symbols
*
(
set
-
difference
*
cl
-
symbols
*
...
...
ansi-tests/gclload1.lsp
View file @
cb6beec3
...
...
@@ -6,6 +6,28 @@
(load "cl-test-package.lsp")
(in-package :cl-test)
(load "universe.lsp")
(compile-and-load "random-aux.lsp")
(compile-and-load "ansi-aux.lsp")
;;; (unless (probe-file "ansi-aux.o") (compile-file "ansi-aux.lsp"))
;;; (load "ansi-aux.o")
(load "cl-symbol-names.lsp")
;(load "notes.lsp")
(setq *compile-verbose* nil
*compile-print* nil
*load-verbose* nil)
#+cmu (setq ext:*gc-verbose* nil)
#+gcl (setq compiler:*suppress-compiler-notes* t
compiler:*suppress-compiler-warnings* t
compiler:*compile-verbose* nil
compiler:*compile-print* nil)
#+lispworks (setq compiler::*compiler-warnings* nil)
#+ecl (setq c:*suppress-compiler-warnings* t
c:*suppress-compiler-notes* t)
#+clisp (setq custom::*warn-on-floating-point-contagion* nil)
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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