merged.

Pascal J. Bourguignon [2015-02-21 04:57]
merged.
Filename
description
lisp15.lisp
diff --git a/description b/description
new file mode 100644
index 0000000..6c1baf5
--- /dev/null
+++ b/description
@@ -0,0 +1 @@
+Informatimago's Machine Readable Transcription of the LISP 1.5 (1962) Sources
diff --git a/lisp15.lisp b/lisp15.lisp
index e68e85d..ed29dd6 100644
--- a/lisp15.lisp
+++ b/lisp15.lisp
@@ -1044,8 +1044,6 @@ EQUAL        A FUNCTION OF 2 ARGUMENTS DETERMINES WETHER 2 LIST
 ;;  LETTR BCI     1,G00000
 ;;  DIGIT BCI     1,000000

-
-
 (defconstant +dmask+ #o000000077777)
 (defconstant  lettr 23)
 (defparameter digit 0)
@@ -1074,6 +1072,11 @@ EQUAL        A FUNCTION OF 2 ARGUMENTS DETERMINES WETHER 2 LIST
                (mod digit #o100000))
        mq) nil) nil))))

+(shadow 'gensym)
+
+(defconstant +dmask+ #o000000077777)
+(defvar digits 0)
+(defparameter mq 0)
 (defun gensym ()
   (cons +dmask+
         (cons 'pname
@@ -1085,6 +1088,7 @@ EQUAL        A FUNCTION OF 2 ARGUMENTS DETERMINES WETHER 2 LIST
                 nil)
                nil))))

+
 ;; (gensym)
 ;; (32767 pname (("G20000" . 0)))
 ;; (32767 pname (("G3.0" . 0)))
ViewGit