diff --git a/motif/lisp/callbacks.lisp b/motif/lisp/callbacks.lisp index 9484c0f2baa279224f196d59b4ff0949a140da3f..3a0a27f2a1994d7db34117515a9fc8c50d4d388d 100644 --- a/motif/lisp/callbacks.lisp +++ b/motif/lisp/callbacks.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/callbacks.lisp,v 1.4 1999/02/05 21:10:24 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/callbacks.lisp,v 1.5 2003/04/11 12:09:10 pmai Exp $") ;;; ;;; ********************************************************************** ;;; @@ -123,7 +123,9 @@ (declare (type widget widget) (type keyword property protocol) (type (or symbol function) fn)) - (let* ((table (motif-connection-protocol-table *motif-connection*)) + (let* ((property (xti:symbol-atom property)) + (protocol (xti:symbol-atom protocol)) + (table (motif-connection-protocol-table *motif-connection*)) (key (list (widget-id widget) property protocol)) (data (cons fn args))) @@ -138,7 +140,9 @@ (declare (type widget widget) (type keyword property protocol) (type (or symbol function) fn)) - (let* ((table (motif-connection-protocol-table *motif-connection*)) + (let* ((property (xti:symbol-atom property)) + (protocol (xti:symbol-atom protocol)) + (table (motif-connection-protocol-table *motif-connection*)) (key (list (widget-id widget) property protocol)) (data (cons fn args)) (new-list (delete data (gethash key table) :test #'equal))) diff --git a/motif/lisp/internals.lisp b/motif/lisp/internals.lisp index 2015ef1d2ca9fa5eed128eeecbdb8b4a4c971fce..5ba7a4911c64a01591c1783a6e904791efe67a7f 100644 --- a/motif/lisp/internals.lisp +++ b/motif/lisp/internals.lisp @@ -7,7 +7,7 @@ ;;; contact Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/internals.lisp,v 1.7 1998/12/20 04:22:54 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/internals.lisp,v 1.8 2003/04/11 12:09:10 pmai Exp $") ;;; ;;; ********************************************************************** ;;; @@ -213,7 +213,7 @@ ;;; Converts a symbol into an atom. (defun symbol-atom (symbol) - (substitute #\_ #\- (symbol-name symbol))) + (intern (substitute #\_ #\- (symbol-name symbol)) :KEYWORD)) (defun widget-add-child (parent child) (declare (type widget parent child))