Land of LISP

gistfile1.cl

(defparameter *small* 1)
(defparameter *big* 100)

(defun guess-my-number ()
  (ash (+ *small* *big*) -1))

(defun smaller ()
  (setf *big* (1- (guess-my-number)))
  (guess-my-number))

(defun bigger ()
  (setf *small* (1+ (guess-my-number)))
  (guess-my-number))

(defun start-over ()
  (defparameter *small* 1)
  (defparameter *big* 100)
  (guess-my-number))

gistfile2.cl

(if (and *file-modified*
  (ask-user-about-saving))
  (save-file)))

(if (member nil '(3 4 nil))
  'nil-is-in-the-list
  'nil-is-not-in-the-list)

(eq () nil))

(eq () '(nil))