Skip to content
Snippets Groups Projects
Commit 2705e47b authored by wlott's avatar wlott
Browse files

Fixed syntax of defstruct key-event now that defstruct is less forgiving.

parent 2fcb32f7
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/key-event.lisp,v 1.1.1.6 1991/11/09 03:05:42 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/key-event.lisp,v 1.1.1.7 1992/03/23 22:38:09 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -277,8 +277,8 @@ ...@@ -277,8 +277,8 @@
(defstruct (key-event (:print-function %print-key-event) (defstruct (key-event (:print-function %print-key-event)
(:constructor %make-key-event (keysym bits))) (:constructor %make-key-event (keysym bits)))
(bits :type fixnum) (bits nil :type fixnum)
(keysym :type :fixnum)) (keysym nil :type :fixnum))
(defun %print-key-event (object stream ignore) (defun %print-key-event (object stream ignore)
(declare (ignore ignore)) (declare (ignore ignore))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment