All pastes #401720 Raw Edit

Something

public text v1 · immutable
·published 2007-03-19 14:31 UTC
rendered paste body
(defmethod exists (val)
  (do ((element *db* (n-element element)))
      ((if (equal (value element) val) (return (format t "Yes"))
	 (return (format t "No"))))))

(defmethod exists (val)
  (do ((element *db* (n-element element)))
      ((null element) (format t "No"))
    (when (equal (value element) val)
      (return (format t "Yes")))))