/[gcl]/gcl/clcs/clcs_restart.data
ViewVC logotype

Diff of /gcl/clcs/clcs_restart.data

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by camm, Tue Sep 23 21:48:26 2003 UTC revision 1.6 by camm, Fri Oct 3 16:03:15 2003 UTC
# Line 1  Line 1 
1                
2  #(#!  #(#!
3  (lisp::in-package "CONDITIONS")  (lisp::in-package "CONDITIONS")
4  #(conditions::*unique-id-table* conditions::*unique-id-count* lisp::&rest "&REST keyword is ~:[missing~;misplaced~]." "KEYWORD" lisp::multiple-value-bind conditions::parse-keyword-pairs lisp::quote lisp::let lisp::getf conditions::*restart-clusters* lisp::*print-escape* "#<~S.~D>" conditions::restart conditions::restart- ((conditions::name lisp::nil lisp::t lisp::nil 0) (lisp::function lisp::nil lisp::t lisp::nil 1) (conditions::report-function lisp::nil lisp::t lisp::nil 2) (conditions::interactive-function lisp::nil lisp::t lisp::nil 3)) conditions::copy-restart conditions::restart-print (conditions::make-restart) conditions::restart-p conditions::*kcl-top-restarts* :name conditions::abort :function :report-function system::*quit-tag* system::*break-level* system::*quit-tags* :key (:not-found) :not-found "Return to ? level." "Return to top level." "Return to break level ~D." :interactive-function "~S" "~S" lisp::cons lisp::list conditions::make-restart "Restart ~S is not active." "Restart ~S is not active." (:report :interactive) :report :interactive lisp::block lisp::tagbody conditions::restart-bind lisp::function lisp::lambda (lisp::&rest conditions::temp) lisp::setq conditions::temp lisp::go lisp::return-from lisp::apply (lisp::stream) lisp::write-string lisp::stream conditions::restart-case lisp::progn (lisp::stream) lisp::format (lisp::values lisp::nil lisp::t) conditions::abort-failure conditions::continue conditions::muffle-warning conditions::store-value conditions::use-value system::*make-special conditions::error conditions::kcl-top-restarts conditions::unique-id conditions::restart-report system::define-structure conditions::make-kcl-top-restart conditions::find-kcl-top-restart conditions::find-restart conditions::invoke-restart lisp::cdr lisp::find (system::%init . #((system::mfsfun (lisp::quote #0=#:|progn 'compile2186|) 0 0) (#0#) (system::mfsfun (lisp::quote #1=#:|progn 'compile2198|) 1 0) (#1#) (system::mfsfun (lisp::quote #2=#:|progn 'compile2211|) 2 0) (#2#) (system::mfsfun (lisp::quote #3=#:|progn 'compile2227|) 3 0) (#3#) (system::mfsfun (lisp::quote #4=#:|progn 'compile2239|) 4 0) (#4#) (system::mfsfun (lisp::quote #5=#:|progn 'compile2252|) 5 0) (#5#) (system::putprop (lisp::quote conditions::unique-id) "Generates a unique integer ID for its argument." (lisp::quote system::function-documentation)) (system::mfsfun (lisp::quote conditions::unique-id) 6 1) (system::mf (lisp::quote conditions::parse-keyword-pairs) 7) (system::putprop (lisp::quote conditions::with-keyword-pairs) (lisp::quote 1) #6=(lisp::quote system::pretty-print-format)) (system::mm (lisp::quote conditions::with-keyword-pairs) 8) (system::mfsfun (lisp::quote #7=#:|progn 'compile2353|) 9 0) (#7#) (system::mfsfun (lisp::quote #8=#:|progn 'compile2365|) 10 0) (#8#) (system::mfsfun (lisp::quote #9=#:|progn 'compile2378|) 11 0) (#9#) (system::mfvfun (lisp::quote conditions::compute-restarts) 12 256) (system::mf (lisp::quote conditions::restart-print) 13) (system::mfsfun (lisp::quote #10=#:|progn 'compile2418|) 14 0) (#10#) (system::mfvfun-key (lisp::quote conditions::make-restart) 15 16384 16) (system::mfsfun (lisp::quote #11=#:|progn 'compile2438|) 17 0) (#11#) (system::mfsfun (lisp::quote #12=#:|progn 'compile2454|) 18 0) (#12#) (system::mfsfun (lisp::quote #13=#:|progn 'compile2466|) 19 0) (#13#) (system::mfsfun (lisp::quote #14=#:|progn 'compile2479|) 20 0) (#14#) (system::mfsfun (lisp::quote conditions::make-kcl-top-restart) 21 1) (system::mfsfun (lisp::quote conditions::find-kcl-top-restart) 22 1) (system::mfsfun (lisp::quote conditions::kcl-top-restarts) 23 0) (system::mf (lisp::quote conditions::restart-report) 24) (system::putprop (lisp::quote conditions::restart-bind) (lisp::quote 1) #6#) (system::mm (lisp::quote conditions::restart-bind) 25) (system::mfvfun (lisp::quote conditions::find-restart) 26 513) (system::mf (lisp::quote conditions::invoke-restart) 27) (system::mf (lisp::quote conditions::invoke-restart-interactively) 28) (system::putprop (lisp::quote conditions::restart-case) (lisp::quote 1) #6#) (system::mm (lisp::quote conditions::restart-case) 29) (system::putprop (lisp::quote conditions::with-simple-restart) (lisp::quote 1) #6#) (system::mm (lisp::quote conditions::with-simple-restart) 30) (system::mf (lisp::quote conditions::abort) 31) (system::mf (lisp::quote conditions::continue) 32) (system::mf (lisp::quote conditions::muffle-warning) 33) (system::mf (lisp::quote conditions::store-value) 34) (system::mf (lisp::quote conditions::use-value) 35) (system::debug (lisp::quote conditions::unique-id) (lisp::quote (#:g2279))) (system::debug (lisp::quote conditions::parse-keyword-pairs) (lisp::quote (lisp::list conditions::keys))) (system::debug (lisp::quote conditions::restart-print) (lisp::quote (conditions::restart lisp::stream))) (system::debug (lisp::quote conditions::make-restart) (lisp::quote (conditions::name lisp::function conditions::report-function conditions::interactive-function))) (system::debug (lisp::quote conditions::make-kcl-top-restart) (lisp::quote (conditions::quit-tag))) (system::debug (lisp::quote conditions::find-kcl-top-restart) (lisp::quote (#:g2544))) (system::debug (lisp::quote conditions::kcl-top-restarts) (lisp::quote (conditions::old-tags conditions::tags conditions::restarts))) (system::debug (lisp::quote conditions::restart-report) (lisp::quote (conditions::restart lisp::stream lisp::nil conditions::name))) (system::debug (lisp::quote conditions::find-restart) (lisp::quote (conditions::restart-cluster conditions::restart))) (system::debug (lisp::quote conditions::invoke-restart) (lisp::quote (conditions::restart lisp::values))) (system::debug (lisp::quote conditions::invoke-restart-interactively) (lisp::quote (conditions::restart))) (system::debug (lisp::quote conditions::store-value) (lisp::quote (conditions::value))) (system::debug (lisp::quote conditions::use-value) (lisp::quote (conditions::value))))))  #(conditions::*unique-id-table* conditions::*unique-id-count* lisp::&rest "&REST keyword is ~:[missing~;misplaced~]." "KEYWORD" lisp::multiple-value-bind conditions::parse-keyword-pairs lisp::quote lisp::let lisp::getf conditions::*restart-clusters* lisp::*print-escape* "#<~S.~D>" conditions::restart conditions::restart- ((conditions::name lisp::nil lisp::t lisp::nil 0) (lisp::function lisp::nil lisp::t lisp::nil 1) (conditions::report-function lisp::nil lisp::t lisp::nil 2) (conditions::interactive-function lisp::nil lisp::t lisp::nil 3)) conditions::copy-restart conditions::restart-print (conditions::make-restart) conditions::restart-p conditions::*kcl-top-restarts* :name conditions::abort :function :report-function system::*quit-tag* system::*break-level* system::*quit-tags* :key (:not-found) :not-found "Return to ? level." "Return to top level." "Return to break level ~D." :interactive-function "~S" "~S" lisp::cons lisp::list conditions::make-restart "Restart ~S is not active." "Restart ~S is not active." (:report :interactive) :report :interactive lisp::block lisp::tagbody conditions::restart-bind lisp::function lisp::lambda (lisp::&rest conditions::temp) lisp::setq conditions::temp lisp::go lisp::return-from lisp::apply (lisp::stream) lisp::write-string lisp::stream conditions::restart-case lisp::progn (lisp::stream) lisp::format (lisp::values lisp::nil lisp::t) conditions::abort-failure conditions::continue conditions::muffle-warning conditions::store-value conditions::use-value system::*make-special conditions::error conditions::kcl-top-restarts conditions::unique-id conditions::restart-report system::define-structure conditions::make-kcl-top-restart conditions::find-kcl-top-restart conditions::find-restart conditions::invoke-restart lisp::cdr lisp::find (system::%init . #((system::mfsfun (lisp::quote #0=#:|progn 'compile2191|) 0 0) (#0#) (system::mfsfun (lisp::quote #1=#:|progn 'compile2203|) 1 0) (#1#) (system::mfsfun (lisp::quote #2=#:|progn 'compile2216|) 2 0) (#2#) (system::mfsfun (lisp::quote #3=#:|progn 'compile2232|) 3 0) (#3#) (system::mfsfun (lisp::quote #4=#:|progn 'compile2244|) 4 0) (#4#) (system::mfsfun (lisp::quote #5=#:|progn 'compile2257|) 5 0) (#5#) (system::putprop (lisp::quote conditions::unique-id) "Generates a unique integer ID for its argument." (lisp::quote system::function-documentation)) (system::mfsfun (lisp::quote conditions::unique-id) 6 1) (system::mf (lisp::quote conditions::parse-keyword-pairs) 7) (system::putprop (lisp::quote conditions::with-keyword-pairs) (lisp::quote 1) #6=(lisp::quote system::pretty-print-format)) (system::mm (lisp::quote conditions::with-keyword-pairs) 8) (system::mfsfun (lisp::quote #7=#:|progn 'compile2358|) 9 0) (#7#) (system::mfsfun (lisp::quote #8=#:|progn 'compile2370|) 10 0) (#8#) (system::mfsfun (lisp::quote #9=#:|progn 'compile2383|) 11 0) (#9#) (system::mfvfun (lisp::quote conditions::compute-restarts) 12 256) (system::mf (lisp::quote conditions::restart-print) 13) (system::mfsfun (lisp::quote #10=#:|progn 'compile2423|) 14 0) (#10#) (system::mfvfun-key (lisp::quote conditions::make-restart) 15 16384 16) (system::mfsfun (lisp::quote #11=#:|progn 'compile2443|) 17 0) (#11#) (system::mfsfun (lisp::quote #12=#:|progn 'compile2459|) 18 0) (#12#) (system::mfsfun (lisp::quote #13=#:|progn 'compile2471|) 19 0) (#13#) (system::mfsfun (lisp::quote #14=#:|progn 'compile2484|) 20 0) (#14#) (system::mfsfun (lisp::quote conditions::make-kcl-top-restart) 21 1) (system::mfsfun (lisp::quote conditions::find-kcl-top-restart) 22 1) (system::mfsfun (lisp::quote conditions::kcl-top-restarts) 23 0) (system::mf (lisp::quote conditions::restart-report) 24) (system::putprop (lisp::quote conditions::restart-bind) (lisp::quote 1) #6#) (system::mm (lisp::quote conditions::restart-bind) 25) (system::mfvfun (lisp::quote conditions::find-restart) 26 513) (system::mf (lisp::quote conditions::invoke-restart) 27) (system::mf (lisp::quote conditions::invoke-restart-interactively) 28) (system::putprop (lisp::quote conditions::restart-case) (lisp::quote 1) #6#) (system::mm (lisp::quote conditions::restart-case) 29) (system::putprop (lisp::quote conditions::with-simple-restart) (lisp::quote 1) #6#) (system::mm (lisp::quote conditions::with-simple-restart) 30) (system::mf (lisp::quote conditions::abort) 31) (system::mf (lisp::quote conditions::continue) 32) (system::mf (lisp::quote conditions::muffle-warning) 33) (system::mf (lisp::quote conditions::store-value) 34) (system::mf (lisp::quote conditions::use-value) 35) (system::debug (lisp::quote conditions::unique-id) (lisp::quote (#:g2284))) (system::debug (lisp::quote conditions::parse-keyword-pairs) (lisp::quote (lisp::list conditions::keys))) (system::debug (lisp::quote conditions::restart-print) (lisp::quote (conditions::restart lisp::stream))) (system::debug (lisp::quote conditions::make-restart) (lisp::quote (conditions::name lisp::function conditions::report-function conditions::interactive-function))) (system::debug (lisp::quote conditions::make-kcl-top-restart) (lisp::quote (conditions::quit-tag))) (system::debug (lisp::quote conditions::find-kcl-top-restart) (lisp::quote (#:g2549))) (system::debug (lisp::quote conditions::kcl-top-restarts) (lisp::quote (conditions::old-tags conditions::tags conditions::restarts))) (system::debug (lisp::quote conditions::restart-report) (lisp::quote (conditions::restart lisp::stream lisp::nil conditions::name))) (system::debug (lisp::quote conditions::find-restart) (lisp::quote (conditions::restart-cluster conditions::restart))) (system::debug (lisp::quote conditions::invoke-restart) (lisp::quote (conditions::restart lisp::values))) (system::debug (lisp::quote conditions::invoke-restart-interactively) (lisp::quote (conditions::restart))) (system::debug (lisp::quote conditions::store-value) (lisp::quote (conditions::value))) (system::debug (lisp::quote conditions::use-value) (lisp::quote (conditions::value))))))
5  )  )

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26