Changeset main,66 for main

Timestamp:

11/19/2007 09:44:31 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071119214431-2y7d4mt4a9v5150q

Message:

Made SIZE a generic function.

File:

• main/window/generic.lisp (modified) (1 diff)

main/window/generic.lisp

@@ -51 +51 @@
 
 
-(defun size (window)
-  (let ((ptr (window-pointer window)))
-    (values (getmaxy ptr)
-            (getmaxx ptr))))
+(defgeneric size (window)
+  (:method ((window window))
+    (let ((ptr (window-pointer window)))
+      (values (getmaxy ptr)
+              (getmaxx ptr)))))
 
 (defun erase (window)