Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

clean up defmethod/defun

darcs-hash:20081125181329-3cc5d-c2a8b6224c3318a3b5edea89341a9a72f967b0d9.gz
  • Loading branch information...
commit cf0dfb352ad11918656b5f191c4314bca8a61526 1 parent 80eb780
@gwkkwg authored
Showing with 6 additions and 8 deletions.
  1. +6 −8 dev/generic-interface.lisp
View
14 dev/generic-interface.lisp
@@ -163,7 +163,7 @@
(values 0))
-(defmethod make-color* (red green blue)
+(defun make-color* (red green blue)
;;; Make-color with sensible arguments
"given red, green, and blue, returns an encoded rgb value"
(make-color** (default-interface) red green blue))
@@ -173,7 +173,7 @@
(make-color** interface level level level))
-(defmethod make-gray (level)
+(defun make-gray (level)
;;; These use a 0-255 scale for component levels
(make-gray* (default-interface) level))
@@ -185,7 +185,7 @@
(round (* blue scale))))
-(defmethod make-scaled-color (red green blue scale)
+(defun make-scaled-color (red green blue scale)
(make-scaled-color* (default-interface) red green blue scale))
@@ -281,7 +281,7 @@ is an atom or a singleton list."
(values))
-(defmethod process-parameters (&rest args)
+(defun process-parameters (&rest args)
(apply #'process-parameters* *default-interface* args)
(values))
@@ -292,8 +292,7 @@ is an atom or a singleton list."
(declare (ignore interface thing))
(error "I don't know anything about clipboards."))
-
-(defmethod put-item-on-clipboard (thing)
+(defun put-item-on-clipboard (thing)
(put-item-on-clipboard* *default-interface* thing)
thing)
@@ -338,8 +337,7 @@ is an atom or a singleton list."
(declare (ignore interface instrument args))
(error "I don't know how to select instruments."))
-
-(defmethod select-instrument (instrument &rest args)
+(defun select-instrument (instrument &rest args)
(apply #'select-instrument* *default-interface* instrument args))
Please sign in to comment.
Something went wrong with that request. Please try again.