Skip to content
Snippets Groups Projects
Commit 1fd6a8c6 authored by pfdietz's avatar pfdietz
Browse files

Got rid of non-ANSI compliant DEFCONSTANT forms.

parent c7a2b009
No related branches found
No related tags found
No related merge requests found
......@@ -215,19 +215,29 @@ the condition to go uncaught if it cannot be classified."
(rotatef (elt seq r) (elt seq (1- i))))))
seq)
(defconstant +standard-chars+
(defparameter +standard-chars+
"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789~!@#$%^&*()_+|\\=-`{}[]:\";'<>?,./
")
(defconstant +alpha-chars+ (subseq +standard-chars+ 0 52))
(defconstant +lower-case-chars+ (subseq +alpha-chars+ 0 26))
(defconstant +upper-case-chars+ (subseq +alpha-chars+ 26 52))
(defconstant +alphanumeric-chars+ (subseq +standard-chars+ 0 62))
(defconstant +digit-chars+ "0123456789")
(defconstant +extended-digit-chars+ "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ")
(defconstant +code-chars+
(defparameter
+base-chars+ #.(concatenate 'string
"abcdefghijklmnopqrstuvwxyz"
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
"0123456789"
"<,>.?/\"':;[{]}~`!@#$%^&*()_-+= \\|"))
(defparameter +num-base-chars+ (length +base-chars+))
(defparameter +alpha-chars+ (subseq +standard-chars+ 0 52))
(defparameter +lower-case-chars+ (subseq +alpha-chars+ 0 26))
(defparameter +upper-case-chars+ (subseq +alpha-chars+ 26 52))
(defparameter +alphanumeric-chars+ (subseq +standard-chars+ 0 62))
(defparameter +digit-chars+ "0123456789")
(defparameter +extended-digit-chars+ "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ")
(defparameter +code-chars+
(coerce (loop for i from 0 below 256
for c = (code-char i)
when c collect c)
'string))
(defconstant +rev-code-chars+ (reverse +code-chars+))
(defparameter +rev-code-chars+ (reverse +code-chars+))
......@@ -1048,7 +1048,7 @@
;;; See section 3.1.2.1.2.1
(defconstant +special-operators+
(defparameter +special-operators+
'(block let* return-from catch load-time-value setq eval-when
locally symbol-macrolet flet macrolet tagbody function
multiple-value-call the go multiple-value-prog1 throw if
......
......@@ -19,7 +19,9 @@
(documentation 'test-constant-1 'variable)
nil)
(defconstant test-constant-2 'a "This is the documentation.")
(defconstant test-constant-2 'a
(if (boundp test-constant-2) test-constant-2
"This is the documentation."))
(deftest defconstant.4
(documentation 'test-constant-2 'variable)
......
......@@ -5,14 +5,6 @@
(in-package :cl-test)
(defconstant
+base-chars+ #.(concatenate 'string
"abcdefghijklmnopqrstuvwxyz"
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
"0123456789"
"<,>.?/\"':;[{]}~`!@#$%^&*()_-+= \\|"))
(defconstant +num-base-chars+ (length +base-chars+))
(defconstant +max-len-random-symbol+ 63)
(defun make-random-symbol (package)
......
......@@ -156,7 +156,8 @@
*subtype-table*)
0)
(defconstant +float-types+ '(long-float double-float short-float single-float))
(defparameter +float-types+
'(long-float double-float short-float single-float))
(defun types-4-body ()
(let ((parent-table (make-hash-table :test #'equal))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment