;;; Copyright (c) 2007, Tobias C. Rittweiler, Robert P. Goldman and ;;; SIFT, LLC ;;; All rights reserved. ;;; ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions are met: ;;; * Redistributions of source code must retain the above copyright ;;; notice, this list of conditions and the following disclaimer. ;;; * Redistributions in binary form must reproduce the above copyright ;;; notice, this list of conditions and the following disclaimer in the ;;; documentation and/or other materials provided with the distribution. ;;; * Neither the names of Tobias C. Rittweiler, Robert P. Goldman, SIFT, LLC nor the ;;; names of its contributors may be used to endorse or promote products ;;; derived from this software without specific prior written permission. ;;; ;;; THIS SOFTWARE IS PROVIDED BY Tobias C. Rittweiler, Robert ;;; P. Goldman and SIFT, LLC ``AS IS'' AND ANY EXPRESS OR IMPLIED ;;; WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES ;;; OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE ;;; DISCLAIMED. IN NO EVENT SHALL Tobias C. Rittweiler, Robert ;;; P. Goldman or SIFT, LLC BE LIABLE FOR ANY DIRECT, INDIRECT, ;;; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES ;;; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR ;;; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) ;;; HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN ;;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ;;; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, ;;; EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. (in-package :common-lisp-user) (defpackage :editor-hints (:nicknames #:hints) (:use :common-lisp) (:export ;; Named Readtables #:defreadtable #:in-readtable #:make-readtable #:find-readtable #:ensure-readtable #:rename-readtable #:readtable-name #:register-readtable #:unregister-readtable #:list-all-named-readtables #:named-readtable-designator ;; User prompting #:prompt-for-line #:prompt-for-form #:*prompt-for-line* #:*prompt-for-form* ;; Restart utilities #:with-use-value-restart ) #+allegro (:import-from #:excl #:named-readtable))