Complete Linux/Complete Linux.iso/docs/devel/lisp/kcl_tar.z/kcl_tar/lsp/describe.data

Text File | 1986-07-03 | 4.2 KB | 225 lines

#(
#!
(lisp::in-package 'user::lisp)
#!
(lisp::export '(lisp::describe lisp::inspect))
#!
(lisp::in-package 'lisp::system)
(lisp::optimize (lisp::safety 2) (lisp::space 3))
0
system::*inspect-level*
system::*inspect-history*
system::*inspect-mode*
system::*old-print-level*
system::*old-print-length*
lisp::*query-io*
#\Newline
#\Return
#\Space
#\Tab
#\n
#\N
#\s
#\S
#\p
#\P
lisp::*print-pretty*
lisp::*print-level*
lisp::*print-length*
#\a
#\A
system::abort-inspect
#\u
#\U
#\e
#\E
:level
:length
#\q
#\Q
system::quit-inspect
"Inspect commands:~%~
        n (or N or Newline):    inspects the field (recursively).~%~
        s (or S):        skips the field.~%~
        p (or P):        pretty-prints the field.~%~
        a (or A):        aborts the inspection ~
                    of the rest of the fields.~%~
        u (or U) form:        updates the field ~
                    with the value of the form.~%~
        e (or E) form:        evaluates and prints the form.~%~
        q (or Q):        quits the inspection.~%~
        ?:            prints this.~%~%"
lisp::multiple-value-bind
(system::update-flag system::new-value)
system::read-inspect-command
lisp::when
system::update-flag
lisp::setf
system::new-value
((lisp::princ "Not updated.") (lisp::terpri))
(system::update-flag system::new-value)
((lisp::princ "Not updated.") (lisp::terpri))
"~V@T"
4
8
"~V@T"
3
"~:@(~S~) - uninterned symbol"
"KEYWORD"
"~:@(~S~) - keyword"
"~:@(~S~) - ~:[internal~;external~] symbol in ~A package"
:external
"value:"
"value:~%   ~S"
system::system
system::compiler
"property ~S:"
"property ~:@(~S~):~%   ~~S"
"~&-----------------------------------------------------------------------------~%"
"~S - package"
"nicknames:  ~S"
"use list:  ~S"
"used-by list:  ~S"
"shadowing symbols:  ~S"
"~S - standard character"
"~S - string character"
"~S - character"
"code:  #x~X"
"bits:  ~D"
"font:  ~D"
"~S - fixnum (32 bits)"
"~S - bignum"
"~S - ratio"
"numerator:"
"denominator:"
"~S - complex"
"real part:"
"imaginary part:"
"~S - short-float"
"exponent:  ~D"
"mantissa:  ~D"
"~S - long-float"
"exponent:  ~D"
"mantissa:  ~D"
"~S - function"
"~S - constant"
"~S - cons"
"nthcdr ~D:"
"nth ~D:"
"~S - simple string"
"~S - string"
"dimension:  ~D"
"fill pointer:  ~D"
"aref ~D:"
"~S - simple vector"
"~S - vector"
"dimension:  ~D"
"fill pointer:  ~D"
"aref ~D:"
"~S - adjustable aray"
"~S - array"
"rank:  ~D"
"dimensions:  ~D"
"total size:  ~D"
5
1
"~S - ~S"
"The lisp function DESCRIBE."
"The lisp function INSPECT."
lisp::function
""
"[Special form and Macro]"
"[Special form]"
""
"[Macro]"
"~%Args: ~S"
"~%Args: ~S"
"~%Args: ~S"
"~%Args: ~S"
""
""
"[Function]"
"[Macro or Function]"
"KEYWORD"
lisp::variable
""
"[Constant]"
""
"[Special variable]"
""
"[Variable]"
lisp::type
"[Type]"
system::deftype-form
lisp::*package*
"~%Defined as: ~S~%See the doc of DEFTYPE."
"[Type]"
lisp::structure
"[Structure]"
system::defstruct-form
"~%Defined as: ~S~%See the doc of DEFSTRUCT."
"[Structure]"
"[Setf]"
system::setf-update-fn
"~%Defined as: ~S~%See the doc of DEFSETF."
lisp::defsetf
"[Setf]"
system::setf-lambda
"~%Defined as: ~S~%See the doc of DEFSETF."
"[Setf]"
system::setf-method
"~@[~%Defined as: ~S~%See the doc of DEFINE-SETF-METHOD.~]"
lisp::define-setf-method
"[Setf]"
"~&-----------------------------------------------------------------------------~%~53S~24@A~%~A"
"LISP"
"SYSTEM"
"~&-----------------------------------------------------------------------------"
"~&No documentation for ~:@(~S~)."
system::lisp
1024
512
"~&-----------------------------------------------------------------------------"
"~&No documentation for ~S in ~:[any~;~A~] package."
lisp::proclaim
system::inspect-read-line
system::inspect-recursively
system::inspect-print
system::inspect-indent
system::inspect-indent-1
system::inspect-symbol
system::inspect-package
system::inspect-character
system::inspect-number
system::inspect-cons
system::inspect-string
system::inspect-vector
system::inspect-array
system::inspect-object
lisp::describe
lisp::inspect
system::print-doc
system::apropos-doc
lisp::read-preserving-whitespace
lisp::package-shadowing-symbols
lisp::fixnum
lisp::bignum
lisp::ratio
lisp::complex
lisp::short-float
lisp::single-float
lisp::long-float
lisp::double-float
lisp::lambda
lisp::lambda-block
lisp::lambda-closure
lisp::lambda-block-closure
lisp::quote
lisp::array-has-fill-pointer-p
lisp::array-dimensions
lisp::array-total-size
lisp::documentation
system::substringp
)