Published at: 01:01 pm - Sunday January 06 2019
This post concerns the “MacIvory” Model 3 Lisp Machine. It is of interest strictly to bolixologists. This is a recipe for a working replacement of an ancient SCSI HDD, such as found in the MacIvory, with an inexpensive solid-state disk. You will need: A “SCSI2SD” device. Mine is a model 6, but older units may […]
Published at: 07:12 pm - Saturday December 29 2018
This post concerns the “MacIvory” Model 3 Lisp Machine. It is of interest strictly to bolixologists. Click on a photo to see detailed version. Machine chassis: The Ivory NuBus Board Set (i.e. the LispM itself, the Mac Quadra is otherwise ordinary): “Ivory” NuBus board, component-side: What’s under the labels? Bolix Label Part Notes 115999-B PLUS20L8 […]
Published at: 09:12 am - Monday December 17 2018
At long last, got hold of one of these:
Published at: 10:11 am - Friday November 02 2018
This article is a continuation of the previous, and concludes the series. Let’s try this somewhat different variant of the program, which represents recurring bits of the expansion symbolically (and in a slightly more readable form) : ;; Register bitness. (defconstant +bitness+ 32) (defun make-reg (reg-name bitness) "Make algebraic representation of a register (bits […]
Published at: 10:11 am - Thursday November 01 2018
This article is a continuation of the dig into the key schedule of the Serpent cipher. For clarity, we will omit the routines already given in the previous article. Let’s visualize the Serpent key schedule as a graphic: ;; 256bit(key)+1(const) x 4224(132*32) matrix, last column for constant subterms (defvar *matrix* (make-array ‘(257 4224) :element-type ‘(mod […]
Published at: 10:10 pm - Tuesday October 30 2018
This article is a continuation of the recent mega-puzzler concerning the experiment. This variant will reduce the equations. We will omit printing the input matrix, for brevity. And so: ;; Register bitness. (defconstant +bitness+ 32) (defun flatten (l) "Flatten a tree." (cond ((null l) nil) ((atom l) (list l)) (t (mapcan #’flatten l)))) […]
Published at: 04:10 pm - Tuesday October 30 2018
This article is a byproduct of the recent mega-puzzler concerning the Serpent cipher’s key expansion procedure. Behold: ;; Register bitness. (defconstant +bitness+ 32) (defun make-reg (reg-name bitness) "Make algebraic representation of a register (bits in descending majority)" (loop for i from (1- bitness) downto 0 collect (make-symbol (format nil "~A~A" reg-name i)))) (defun […]
Published at: 11:12 pm - Sunday December 15 2013
The following is a conversation I recently had with an alert and inquisitive reader. It has been redacted for brevity; handles/names/irrelevant things have been removed. Some text has been turned into links to relevant material. Anyone still reading this page for reasons related to its original purpose is encouraged to read this; it may help […]
Published at: 12:09 pm - Wednesday September 05 2012
Boston Lisp Meeting; June 28, 2012. Update: Here’s a mirror of the film. The Google copy appears to have been censored.
Published at: 12:06 pm - Friday June 01 2012
The great inventor John McCarthy (1927 – 2011) now has an official posthumous website: Project JMC. Don’t miss his fascinating (though little-known) political essays!