Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

newLISP the true champion of homoiconicity

Name: Anonymous 2012-11-10 10:11

Can your Lisp do this, /prog/?

(define (plus-minus a b)
  (begin
    (setf (nth '(1 2 0) plus-minus) (if (= (nth '(1 2 0) plus-minus) -) + -))
    (+ a b)))

(plus-minus 10 2)
8
(plus-minus 10 2)
12


newLISP treats code literally as data unlike Common Lisp or Scheme.

Name: Anonymous 2012-11-11 16:27

>>26
Yes, but mf is a regular function!  What if yo do something like

(defun mf (...) ...)

(let ((mf something-else))
  (defmacro m (&rest args)
    (apply mf args)))

Newer Posts
Don't change these.
Name: Email:
Entire Thread Thread List