Changeset main,41 for main/window/screen.lisp

Timestamp:

11/08/2007 06:55:28 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui-new

revision id:

dsowen@fugue88.ws-20071108185528-lwphx3dpc0341g6y

Message:

Changed SIGNAL to ERROR.

File:

• main/window/screen.lisp (modified) (4 diffs)

main/window/screen.lisp

@@ -31 +31 @@
     `(let ((,ptr (initscr)))
        (when (null-pointer-p ,ptr)
-         (signal 'screen-initialization-error))
+         (error 'screen-initialization-error))
        (unwind-protect
             (start-color)
@@ -64 +64 @@
   (let ((ptr (derwin (window-pointer w) height width y x)))
     (when (null-pointer-p ptr)
-      (signal 'screen-window-creation-error))
+      (error 'screen-window-creation-error))
     (make-instance 'screen-window :ptr ptr)))
 
@@ -70 +70 @@
   (with-slots (ptr) w
     (when (= (delwin ptr) +err+)
-      (signal 'screen-window-destruction-error)))
+      (error 'screen-window-destruction-error)))
   (values))
 
@@ -79 +79 @@
     `(let ((,ptr (newwin ,height ,width ,y ,x)))
        (when (null-pointer-p ,ptr)
-         (signal 'screen-window-creation-error))
+         (error 'screen-window-creation-error))
        (let ((,window (make-instance 'screen-window :ptr ,ptr)))
          (unwind-protect (progn ,@body)