Changeset main,41

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.

Location:

main

Files:

• panel.lisp (modified) (2 diffs)
• window/screen.lisp (modified) (4 diffs)

main/panel.lisp

@@ -56 +56 @@
   (let ((panel-ptr (new-panel (window-pointer window))))
     (when (null-pointer-p panel-ptr)
-      (signal 'panel-construction-error))
+      (error 'panel-construction-error))
     (make-instance 'panel :panel-ptr panel-ptr :client-window window)))
 
@@ -73 +73 @@
   (with-slots (panel-ptr) panel
     (unless (= (del-panel panel-ptr) +ok+)
-      (signal 'panel-destruction-error))))
+      (error 'panel-destruction-error))))
 
 

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)