LISP
Name:
LISP
2012-10-12 0:07
LISP
Name:
LISPPER
2012-10-12 0:13
LISP?
Name:
LISP
2012-10-12 0:15
LISP
Name:
LISP
2012-10-12 0:36
(DEFUN LISP (LISP)
(COND ((NULL LISP) LISP)
((LISTP LISP) (CONS (LISP (CAR LISP)) (LISP (CDR LISP))))
(T 'LISP)))
Name:
LISP
2012-10-12 0:38
(DEFUN LISP (LISP)
(COND ((NULL LISP) LISP)
((LISTP LISP) (CONS (LISP (CAR LISP)) (LISP (CDR LISP))))
((EQ LISP 'SCHEME) 'SHIT)
(T 'LISP)))
Name:
LISP
2012-10-12 0:43
(DEFUN LISP1 (LISP1 LISP2)
(CONS (FUNCALL LISP1 (CAR LISP2)) (FUNCALL LISP1 (CDR LISP2))))
(DEFUN LISP (LISP)
(COND ((NULL LISP) LISP)
((LISTP LISP) (LISP1 (FUNCTION LISP) LISP))
((EQ LISP (QUOTE SCHEME)) (QUOTE SHIT))
(T (QUOTE LISP))))
Name:
LISP
2012-10-12 0:50
(DEFGENERIC LISP (LISP))
(DEFCLASS LISP () (LISP))
(DEFMETHOD LISP ((LISP LISP)) 'LISP)
(LISP (MAKE-INSTANCE 'LISP))
Name:
LISP
2012-10-12 0:52
(DEFGENERIC LISP (LISP))
(DEFCLASS LISP () (LISP))
(DEFCLASS SCHEME () (LISP))
(DEFMETHOD LISP ((LISP LISP)) 'LISP)
(DEFMETHOD LISP ((LISP SCHEME)) 'SHIT)
(LISP (MAKE-INSTANCE 'LISP))
(LISP (MAKE-INSTANCE 'SCHEME))
Name:
sage
2012-10-12 0:57
(DEFGENERIC LISP (LISP))
(DEFCLASS LISP () (LISP))
(DEFCLASS SHIT (LISP) (LISP))
(DEFCLASS SCHEME (SHIT) ())
(DEFMETHOD LISP ((LISP LISP)) 'LISP)
(DEFMETHOD LISP ((LISP SHIT)) 'SHIT)
(DEFMETHOD LISP ((LISP SCHEME)) (CALL-NEXT-METHOD))
(LISP (MAKE-INSTANCE 'LISP))
(LISP (MAKE-INSTANCE 'SHIT))
(LISP (MAKE-INSTANCE 'SCHEME))
Name:
Anonymous
2012-10-12 2:53
(SETF (READTABLE-CASE *READTABLE*) :CRUISE-CONTROL)
Name:
Anonymous
2012-10-12 3:21
(SETF (READTABLE-CASE *READTABLE*) :CRUISE-CONTROL)
Name:
LISP
2012-10-12 4:35
(DEFGENERIC LISP (T))
(DEFMETHOD LISP ((LISP LIST))
(IF (NULL LISP)
LISP
(CONS (LISP (CAR LISP)) (LISP (CDR LISP)))))
(DEFMETHOD LISP ((LISP T))
(IF (EQ LISP 'SCHEME)
'SHIT
'LISP))
(LISP '(SCHEME SCHEM (SCHE ME)))