/[gcl]/gcl/lsp/mislib.data
ViewVC logotype

Diff of /gcl/lsp/mislib.data

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

revision 1.3 by camm, Sat Sep 28 13:43:00 2002 UTC revision 1.4 by camm, Thu Oct 10 02:51:59 2002 UTC
# Line 3  Line 3 
3  (lisp::in-package (lisp::quote user::lisp))#!  (lisp::in-package (lisp::quote user::lisp))#!
4  (lisp::export (lisp::quote lisp::time))#!  (lisp::export (lisp::quote lisp::time))#!
5  (lisp::export (lisp::quote lisp::nth-value))#!  (lisp::export (lisp::quote lisp::nth-value))#!
6  (lisp::export (lisp::quote (lisp::decode-universal-time lisp::encode-universal-time lisp::compile-file-pathname)))#!  (lisp::export (lisp::quote (lisp::decode-universal-time lisp::encode-universal-time lisp::compile-file-pathname lisp::complement lisp::constantly)))#!
7  (lisp::in-package (lisp::quote lisp::system))  (lisp::in-package (lisp::quote lisp::system))
8  #(lisp::let (system::real-start system::real-end system::run-start system::run-end system::x) (lisp::setq system::real-start (lisp::get-internal-real-time)) (lisp::setq system::run-start (lisp::get-internal-run-time)) lisp::setq system::x lisp::multiple-value-list ((lisp::setq system::run-end (lisp::get-internal-run-time)) (lisp::setq system::real-end (lisp::get-internal-real-time)) (lisp::fresh-line lisp::*trace-output*) (lisp::format lisp::*trace-output* "real time : ~,3F secs~%~  #(lisp::let (system::real-start system::real-end system::run-start system::run-end system::x) (lisp::setq system::real-start (lisp::get-internal-real-time)) (lisp::setq system::run-start (lisp::get-internal-run-time)) lisp::setq system::x lisp::multiple-value-list ((lisp::setq system::run-end (lisp::get-internal-run-time)) (lisp::setq system::real-end (lisp::get-internal-real-time)) (lisp::fresh-line lisp::*trace-output*) (lisp::format lisp::*trace-output* "real time : ~,3F secs~%~
9                run time  : ~,3F secs~%" (lisp::/ (lisp::- system::real-end system::real-start) lisp::internal-time-units-per-second) (lisp::/ (lisp::- system::run-end system::run-start) lisp::internal-time-units-per-second)) (lisp::values-list system::x)) 1900 system::*default-time-zone* 3600 86400 lisp::nil lisp::nth :defaults :type "o" system::number-of-days-from-1900 system::leap-year-p lisp::get-decoded-time (system::%init . #((lisp::proclaim (lisp::quote (lisp::optimize (lisp::safety 2) (lisp::space 3)))) (system::mm (lisp::quote lisp::time) 0) (system::*make-constant (lisp::quote system::month-days-list) (lisp::quote (31 28 31 30 31 30 31 31 30 31 30 31))) (system::*make-constant (lisp::quote system::seconds-per-day) 86400) (system::mfsfun (lisp::quote system::leap-year-p) 1 1) (system::mfsfun (lisp::quote system::number-of-days-from-1900) 2 1) (system::setvv 12 system::month-days-list) (system::mf (lisp::quote lisp::decode-universal-time) 3) (system::mfvfun (lisp::quote lisp::encode-universal-time) 4 1798) (system::mm (lisp::quote lisp::nth-value) 5) (system::mf (lisp::quote lisp::compile-file-pathname) 6))))                run time  : ~,3F secs~%" (lisp::/ (lisp::- system::real-end system::real-start) lisp::internal-time-units-per-second) (lisp::/ (lisp::- system::run-end system::run-start) lisp::internal-time-units-per-second)) (lisp::values-list system::x)) 1900 system::*default-time-zone* 3600 86400 lisp::nil lisp::nth :defaults :type "o" system::number-of-days-from-1900 system::leap-year-p lisp::get-decoded-time (system::%init . #((lisp::proclaim (lisp::quote (lisp::optimize (lisp::safety 2) (lisp::space 3)))) (system::mm (lisp::quote lisp::time) 0) (system::*make-constant (lisp::quote system::month-days-list) (lisp::quote (31 28 31 30 31 30 31 31 30 31 30 31))) (system::*make-constant (lisp::quote system::seconds-per-day) 86400) (system::mfsfun (lisp::quote system::leap-year-p) 1 1) (system::mfsfun (lisp::quote system::number-of-days-from-1900) 2 1) (system::setvv 12 system::month-days-list) (system::mf (lisp::quote lisp::decode-universal-time) 3) (system::mfvfun (lisp::quote lisp::encode-universal-time) 4 1798) (system::mm (lisp::quote lisp::nth-value) 5) (system::mf (lisp::quote lisp::compile-file-pathname) 6) (system::mf (lisp::quote lisp::constantly) 7) (system::mf (lisp::quote lisp::complement) 8))))
10  )  )

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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