Changeset 6946


Ignore:
Timestamp:
Jul 21, 2007, 10:49:52 PM (14 years ago)
Author:
gb
Message:

Don't define BEEP.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/level-1/l1-utils.lisp

    r6199 r6946  
    11461146(defsetf *%saved-method-var%* set-*%saved-method-var%*)
    11471147
    1148 (defun beep (&optional (times 1) idlecount)
    1149   (dotimes (i times) (declare (fixnum i)) (princ #.(string #\bell)))
    1150   (when idlecount (dotimes (i idlecount) (declare (fixnum i)))))
     1148
    11511149
    11521150
Note: See TracChangeset for help on using the changeset viewer.