Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!zaphod.mps.ohio-state.edu!ncar!gatech!udel!princeton!phoenix!eliot
From: eliot@phoenix.Princeton.EDU (Eliot Handelman)
Newsgroups: comp.lang.lisp
Subject: Re: Is this the end of the lisp wave?
Message-ID: <5420@idunno.Princeton.EDU>
Date: 16 Jan 91 07:22:16 GMT
References: <127724@linus.mitre.org> <18944@ultima.socs.uts.edu.au>
Sender: news@idunno.Princeton.EDU
Organization: Princesspool University, New Jersey
Lines: 19

In article <18944@ultima.socs.uts.edu.au> dcorbett@phobos.socs.uts.edu.au (Dan Corbett) writes:

;3) Look at the older implementations of Lisp and see the beauty of a simple,
;	well-defined language.  You don't have to go back to 1.5, take a
;	look at Franz or UCI Lisp.


Yes, I miss this style of programming:

(defun grev (lis)
  (cond ((null (eval (caaadddadr lis))) (eval (caddadddaaadr lis)))
	((gremfrnk1 (caddadadr lis) 'glork 'fzt nil nil nil 'ftzwk)
	  (append (eval (cons (concat 
			  (cons 'flm (cadr (explode (cadddadar lis)))) )
				 (eval (cons 'list (caddadr lis)))))
		  (list (cadadadddar lis) 'brkvt)))
        (t (grev1 (list 'grk 'frmp nil nil nil nil nil nil nil)))))

Simple, yet elegant.