Changeset main,41 for main/panel.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/panel.lisp (modified) (2 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))))