Skip to content
Snippets Groups Projects
Commit 51282839 authored by csr21's avatar csr21
Browse files

Necessary DEFCONSTANT-EQX for sbcl

darcs-hash:20030506082118-ed5a3-cd67fd11506f8aeecc76c8f1e068200ae6b09d1e.gz
parent 80653962
No related branches found
No related tags found
No related merge requests found
...@@ -353,7 +353,8 @@ mode will occur first. The last remaining mode can not be deleted." ...@@ -353,7 +353,8 @@ mode will occur first. The last remaining mode can not be deleted."
(card32 (screen-position scr dpy)) (card32 (screen-position scr dpy))
((sequence :format card16) v)))) ((sequence :format card16) v))))
(defconstant +mode-status+ (#-sbcl defconstant
#+sbcl sb-int:defconstant-eqx +mode-status+
'#(:MODE_BAD ; unspecified reason '#(:MODE_BAD ; unspecified reason
:MODE_ERROR ; error condition :MODE_ERROR ; error condition
:MODE_OK ; Mode OK :MODE_OK ; Mode OK
...@@ -390,7 +391,8 @@ mode will occur first. The last remaining mode can not be deleted." ...@@ -390,7 +391,8 @@ mode will occur first. The last remaining mode can not be deleted."
:MODE_ONE_WIDTH ; only one width is supported :MODE_ONE_WIDTH ; only one width is supported
:MODE_ONE_HEIGHT ; only one height is supported :MODE_ONE_HEIGHT ; only one height is supported
:MODE_ONE_SIZE ; only one resolution is supported :MODE_ONE_SIZE ; only one resolution is supported
)) )
#+sbcl #'equalp)
(defun decode-status-mode (status) (defun decode-status-mode (status)
(declare (type int32 status)) (declare (type int32 status))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment