diff --git a/ansi-tests/ansi-aux.lsp b/ansi-tests/ansi-aux.lsp index 3bf447cfd586667190b2aca10309ad509e07c0ca..305954a4c44c55530a85544ea31d423c29162a81 100644 --- a/ansi-tests/ansi-aux.lsp +++ b/ansi-tests/ansi-aux.lsp @@ -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)))))))))) + diff --git a/ansi-tests/cl-symbol-names.lsp b/ansi-tests/cl-symbol-names.lsp index bd54e40fc9c7f28dcf57c8ebc3159861ae4e2d44..98821dabbb4dbc2e71eca8e1913cd715c7f53aee 100644 --- a/ansi-tests/cl-symbol-names.lsp +++ b/ansi-tests/cl-symbol-names.lsp @@ -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* diff --git a/ansi-tests/gclload1.lsp b/ansi-tests/gclload1.lsp index a8127425dff0449f705aa68590a4b3236022067f..de81d08b59ea3b5b12aded9e7433249248dbe39e 100644 --- a/ansi-tests/gclload1.lsp +++ b/ansi-tests/gclload1.lsp @@ -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)