Name: TRUE TRUTH EXPERT !!TthtFzrtPXElUy7 2009-11-21 18:39
(defun mkstr (&rest args)
(format nil "~:@(~{~A~}~)" args))
(defun symb (&rest args)
(values (intern (apply #'mkstr args))))
(defun curry (fn &rest args)
(lambda (&rest rest)
(apply fn (append args rest))))
(defun |#[-reader| (stream c n)
(declare (ignore c n))
(let* (chars
(result (do ((prev (read-char stream) curr)
(curr (read-char stream) (read-char stream)))
((and (char= prev #\]) (char= curr #\#))
(coerce (nreverse chars) 'string))
(push prev chars))))
(reduce (lambda (x y)
(append y (if x (list x))))
(nreverse (mapcar (curry #'cl-ppcre:split " ")
(cl-ppcre:split ":" result)))
:key (curry #'mapcar #'read-from-string))))cHECK THIS SHIT OUT
((LAMBDA (X) #[IDENTITY X]#) 'FOO) ==> 'FOO
((LAMBDA (X) #[+ X:1+:IDENTITY X]#) 1) ==> 2pIPELINING STUFF
MONADS LOL
HASKELL LOL
FUCK OFF HASKELLS! uSELESS LANGUAGE FEATURE BLOAT NEEDS TO GO!