Permalink
Browse files

Fix undefinded function warnings

darcs-hash:20080927235851-3cc5d-45a61abfc7c7cfd64a758886e2469ba838159e56.gz
  • Loading branch information...
1 parent d3e1958 commit 238a67d09b4eb18648724cf558c82111021423e1 @gwkkwg committed Sep 27, 2008
Showing with 27 additions and 45 deletions.
  1. +20 −0 dev/api.lisp
  2. +6 −44 dev/generic-interface.lisp
  3. +1 −1 dev/l0-files.lisp
View
@@ -15,6 +15,9 @@
(defgeneric choose-new-file-question* (interface &rest args)
(:documentation ""))
+(defgeneric y-or-n-question* (interface message &rest args)
+ (:documentation "Asks a yes or no question spiffily."))
+
(defgeneric gui-error* (interface condition &optional prefix standard-message)
(:documentation ""))
@@ -51,9 +54,26 @@
(defgeneric select-instrument* (interface instrument &rest args)
(:documentation ""))
+(defgeneric inspect-thing* (interface thing &rest args))
+
+
(defgeneric sound-note* (interface pitch velocity &rest args)
(:documentation ""))
(defgeneric stop-notes* (interface)
(:documentation ""))
+(defgeneric make-progress-bar (interface min max title &key)
+ )
+
+(defgeneric progress-bar-value (interface bar)
+ )
+
+(defgeneric (setf progress-bar-value) (value interface bar)
+ )
+
+(defgeneric close-progress-bar (interface bar)
+ )
+
+(defgeneric make-ui-point* (interface x y))
+
View
@@ -15,26 +15,6 @@
;;; progress bars
;;; ---------------------------------------------------------------------------
-(defgeneric make-progress-bar (interface min max title &key)
- )
-
-;;; ---------------------------------------------------------------------------
-
-(defgeneric progress-bar-value (interface bar)
- )
-
-;;; ---------------------------------------------------------------------------
-
-(defgeneric (setf progress-bar-value) (value interface bar)
- )
-
-;;; ---------------------------------------------------------------------------
-
-(defgeneric close-progress-bar (interface bar)
- )
-
-;;; ---------------------------------------------------------------------------
-
(defvar *dummy-progress-variable*)
(defvar *progress-bar-count* 0)
@@ -104,16 +84,6 @@
(muffle-warning condition))))
,@body))))
-;;; ---------------------------------------------------------------------------
-
-(defgeneric gui-error (condition &optional prefix standard-message)
- )
-
-;;; ---------------------------------------------------------------------------
-
-(defgeneric gui-warn (string &rest args)
- )
-
;;; ---------------------------------------------------------------------------
;;; beeping
@@ -124,19 +94,11 @@
;;; ---------------------------------------------------------------------------
-(defmethod interface-beep (&rest args)
+(defun interface-beep (&rest args)
(apply #'interface-beep* *default-interface* args))
;;; ---------------------------------------------------------------------------
-;;; y-or-n-question
-;;; ---------------------------------------------------------------------------
-
-(defgeneric y-or-n-question* (interface message &rest args)
- (:documentation "Asks a yes or no question spiffily."))
-
-
-;;; ---------------------------------------------------------------------------
;;; no interface interface implementations
;;; ---------------------------------------------------------------------------
@@ -201,7 +163,7 @@
;;; ---------------------------------------------------------------------------
-(defmethod gui-error (condition &optional (prefix "") (standard-message nil))
+(defun gui-error (condition &optional (prefix "") (standard-message nil))
(gui-error* *default-interface* condition prefix standard-message))
;;; ---------------------------------------------------------------------------
@@ -212,7 +174,7 @@
;;; ---------------------------------------------------------------------------
-(defmethod gui-warn (string &rest args)
+(defun gui-warn (string &rest args)
(apply #'gui-warn* *default-interface* string args))
@@ -402,7 +364,7 @@ is an atom or a singleton list."
;;; ---------------------------------------------------------------------------
-(defmethod inspect-thing (thing &rest args)
+(defun inspect-thing (thing &rest args)
(apply #'inspect-thing* *default-interface* thing args)
(values thing))
@@ -423,7 +385,7 @@ is an atom or a singleton list."
;;; ---------------------------------------------------------------------------
-(defmethod sound-note (pitch velocity &rest args)
+(defun sound-note (pitch velocity &rest args)
(apply #'sound-note* *default-interface* pitch velocity args))
;;; ---------------------------------------------------------------------------
@@ -494,7 +456,7 @@ is an atom or a singleton list."
;;; ---------------------------------------------------------------------------
-(defmethod prompt-for (type message &rest args)
+(defun prompt-for (type message &rest args)
(apply #'prompt-for* *default-interface* type message args))
View
@@ -144,7 +144,7 @@ the same (`string=`) namestrings."
;;;;
-(defmethod map-forms (input fn &key (ignore-read-errors-p t))
+(defun map-forms (input fn &key (ignore-read-errors-p t))
(with-input (stream input)
(flet ((next ()
(if ignore-read-errors-p

0 comments on commit 238a67d

Please sign in to comment.