Path: utzoo!attcan!uunet!husc6!soi!alex
From: alex@soi.UUCP (Alex Zatsman)
Newsgroups: comp.lang.lisp
Subject: Amusing Code
Message-ID: <389@soi.UUCP>
Date: 23 Aug 88 18:47:24 GMT
Organization: Software Options Inc.,  Cambridge,  Mass.
Lines: 18

It took me and few of my friends a while to figure out
seemingly strange effect of TEST-STACK below. I thought
other people will find it amusing too:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defvar *Stack*)

(defun Push-Object (Object) (push Object (car *Stack*)))

(defun Init-Stack () (setf *Stack* '((:Bottom-Frame))))

(defun Test-Stack ()
  (Init-Stack)     (print *Stack*)
  (Push-Object 11) (print *Stack*)
  (Init-Stack)     (print *Stack*)  (values))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;