Function: HANDLE-GET-CODE

Source

(defun handle-get-code (code
			on-return
			on-not-found
			on-buffer-small
			otherwise)
  (case code
    (0 (funcall on-return))
    (-30989 (funcall on-not-found))
    (-30999 (funcall on-buffer-small))
    (otherwise (funcall otherwise))))