/[cmucl]/src/clx/input.lisp
ViewVC logotype

Diff of /src/clx/input.lisp

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

revision 1.11 by fgilham, Tue Aug 21 15:49:28 2007 UTC revision 1.11.14.1 by rtoy, Wed Jun 17 15:46:26 2009 UTC
# Line 25  Line 25 
25  ;;; -------------------------------------------------------------------------------------  ;;; -------------------------------------------------------------------------------------
26  ;;; 12/10/87    LGO     Created  ;;; 12/10/87    LGO     Created
27    
 #+cmu  
 (ext:file-comment "$Id$")  
   
28  (in-package :xlib)  (in-package :xlib)
29    
30  ;; Event Resource  ;; Event Resource
# Line 1780  Line 1777 
1777        (format stream "inconsistent-parameters:~{ ~s~}"        (format stream "inconsistent-parameters:~{ ~s~}"
1778                (inconsistent-parameters-parameters condition)))))                (inconsistent-parameters-parameters condition)))))
1779    
1780    (define-condition resource-ids-exhausted (x-error)
1781      ()
1782      (:report
1783        (lambda (condition stream)
1784          (declare (ignore condition))
1785          (format stream "All X resource IDs are in use."))))
1786    
1787  (defun get-error-key (display error-code)  (defun get-error-key (display error-code)
1788    (declare (type display display)    (declare (type display display)
1789             (type array-index error-code))             (type array-index error-code))

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.11.14.1

  ViewVC Help
Powered by ViewVC 1.1.5