Update of /project/movitz/cvsroot/movitz/losp In directory common-lisp.net:/tmp/cvs-serv4386
Modified Files: los0.lisp Log Message: *** empty log message *** Date: Fri Jun 10 00:21:08 2005 Author: ffjeld
Index: movitz/losp/los0.lisp diff -u movitz/losp/los0.lisp:1.45 movitz/losp/los0.lisp:1.46 --- movitz/losp/los0.lisp:1.45 Sun May 8 03:20:02 2005 +++ movitz/losp/los0.lisp Fri Jun 10 00:21:08 2005 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 1 18:08:32 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: los0.lisp,v 1.45 2005/05/08 01:20:02 ffjeld Exp $ +;;;; $Id: los0.lisp,v 1.46 2005/06/09 22:21:08 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -26,6 +26,7 @@ (require :lib/toplevel) ;; (require :lib/net/ip6) (require :lib/net/ip4) +(require :lib/net/dhcp) (require :lib/repl)
;; (require :ll-testing) @@ -876,16 +877,6 @@ with end-time = (+ start-time (* seconds internal-time-units-per-second)) while (< (get-internal-run-time) end-time))))) (values)) - - -;;;(defun get-internal-run-time () -;;; (multiple-value-bind (lo mid hi) -;;; (read-time-stamp-counter) -;;; (declare (ignore lo)) -;;; (dpb hi (byte 5 24) mid))) -;;; -;;;(defun get-internal-real-time () -;;; (get-internal-run-time))
(defun y-or-n-p (&optional control &rest arguments)