Babbage problem: Difference between revisions

→‎Black box: Code update.
(→‎Black box: Code update.)
Line 1,157:
Lisp « jargon » is hidden in a black box.
 
<syntaxhighlight lang="lisp">(defmacro card (name &body body)
`(defun ,name () (tagbody ,@body)))
(defmacro <- (var &body bodylabel)
`(go ,label))
(defmacro → (test statement)
`(when ,conditiontest ,@bodystatement))
(defmacro ← (place value)
`(if (boundp ',place)
(setf ,place ,value)
(defvar ,place ,value)))
 
(defmacro => (condition &body bodyobject)
`(setfprint ,var ,@bodyobject))</syntaxhighlight>
`(when ,condition ,@body))
 
(defmacro <- (var &body body)
`(setf ,var ,@body))</syntaxhighlight>
 
==== References====
422

edits