Remove reference to iup-utils:alias, use serapeum defalias instead (#50)

Author: lispnik

cd/cd.lisp

@@ -1,10 +1,10 @@
 (defpackage #:iup-cd
-  (:use #:common-lisp)
+  (:use #:common-lisp
+        #:serapeum)
   (:export #:context-iup
 	   #:context-iup-dbuffer
 	   #:context-iup-dbuffer-rgb
-	   #:context-iup-draw)
-  (:import-from #:serapeum #:defalias))
+	   #:context-iup-draw))
 
 (in-package #:iup-cd)
 

gl/gl.lisp

@@ -1,5 +1,6 @@
 (defpackage #:iup-gl
-  (:use #:common-lisp)
+  (:use #:common-lisp
+        #:serapeum)
   (:export #:open
 	   #:canvas
 	   #:background-box
@@ -9,19 +10,17 @@
 	   #:palette
 	   #:use-font
 	   #:wait)
-  (:import-from #:iup-utils
-		#:alias)
   (:shadow #:open))
 
 (in-package #:iup-gl)
 
-(alias 'open #'iup-gl-cffi::%iup-gl-canvas-open)
+(defalias open #'iup-gl-cffi::%iup-gl-canvas-open)
 
 (iup::defiupclasses "IUP-GL")
 
-(alias 'make-current #'iup-gl-cffi::%iup-gl-make-current)
-(alias 'current-p #'iup-gl-cffi::%iup-gl-is-current)
-(alias 'swap-buffers #'iup-gl-cffi::%iup-gl-swap-buffers)
-(alias 'palette #'iup-gl-cffi::%iup-gl-palette)
-(alias 'use-font #'iup-gl-cffi::%iup-gl-use-font)
-(alias 'wait #'iup-gl-cffi::%iup-gl-wait)
+(defalias make-current #'iup-gl-cffi::%iup-gl-make-current)
+(defalias current-p #'iup-gl-cffi::%iup-gl-is-current)
+(defalias swap-buffers #'iup-gl-cffi::%iup-gl-swap-buffers)
+(defalias palette #'iup-gl-cffi::%iup-gl-palette)
+(defalias use-font #'iup-gl-cffi::%iup-gl-use-font)
+(defalias wait #'iup-gl-cffi::%iup-gl-wait)

glcontrols/glcontrols.lisp

@@ -1,24 +1,23 @@
 (defpackage #:iup-glcontrols
-  (:use #:common-lisp)
+  (:use #:common-lisp
+        #:serapeum)
   (:export #:open
 	   #:draw-image
 	   #:draw-text
 	   #:draw-get-text-size
 	   #:draw-get-image-info)
-  (:import-from #:iup-utils
-		#:alias)
   (:shadow #:open))
 
 (in-package #:iup-glcontrols)
 
-(alias 'open #'iup-glcontrols-cffi::%iup-glcontrols-open)
+(defalias open #'iup-glcontrols-cffi::%iup-glcontrols-open)
 
 (iup::defiupclasses "IUP-GLCONTROLS")
 
 (defun draw-text (handle text x y)
   (iup-glcontrols-cffi::%iup-glcontrols-draw-text handle text -1 x y))
 
-(alias 'draw-image #'iup-glcontrols-cffi::%iup-glcontrols-draw-image)
+(defalias draw-image #'iup-glcontrols-cffi::%iup-glcontrols-draw-image)
 
 (defun get-text-size (handle text)
   (cffi:with-foreign-objects

imglib/imglib.lisp

@@ -1,9 +1,9 @@
 (defpackage #:iup-imglib
   (:use #:common-lisp
-	#:iup-utils)
+        #:serapeum)
   (:export #:open)
   (:shadow #:open))
 
 (in-package #:iup-imglib)
 
-(alias 'open #'iup-imglib-cffi::%iup-imglib-open)
+(defalias open #'iup-imglib-cffi::%iup-imglib-open)

mglplot/mglplot.lisp

@@ -1,12 +1,11 @@
 (defpackage #:iup-mglplot
-  (:use #:common-lisp)
+  (:use #:common-lisp
+        #:serapeum)
   (:export #:open)
-  (:import-from #:iup-utils
-		#:alias)
   (:shadow #:open))
 
 (in-package #:iup-mglplot)
 
-(alias 'open #'iup-mglplot-cffi::%iup-mglplot-open)
+(defalias open #'iup-mglplot-cffi::%iup-mglplot-open)
 
 (iup::defiupclasses "IUP-MGLPLOT")

olecontrol/olecontrol.lisp

@@ -1,13 +1,12 @@
 (defpackage #:iup-olecontrol
-  (:use #:common-lisp)
+  (:use #:common-lisp
+        #:serapeum)
   (:export #:open
 	   #:olecontrol)
-  (:import-from #:iup-utils
-		#:alias)
   (:shadow #:open))
 
 (in-package #:iup-olecontrol)
 
-(alias 'open #'iup-olecontrol-cffi::%iup-olecontrol-open)
+(defalias open #'iup-olecontrol-cffi::%iup-olecontrol-open)
 
 (iup::defiupclasses "IUP-OLECONTROL")

scintilla/scintilla.lisp

@@ -1,17 +1,16 @@
 (defpackage #:iup-scintilla
-  (:use #:common-lisp)
+  (:use #:common-lisp
+        #:serapeum)
   (:export #:scintilla
 	   #:scintilla-dialog
 	   #:scintilla-send-message
 	   #:open)
-  (:import-from #:iup-utils
-		#:alias)
   (:shadow #:open))
 
 (in-package #:iup-scintilla)
 
-(alias 'open #'iup-scintilla-cffi::%iup-scintilla-open)
+(defalias open #'iup-scintilla-cffi::%iup-scintilla-open)
 
 (iup::defiupclasses "IUP-SCINTILLA")
 
-(alias 'scintilla-send-message #'iup-scintilla-cffi::%iup-scintilla-send-message)
+(defalias scintilla-send-message #'iup-scintilla-cffi::%iup-scintilla-send-message)

tuio/tuio.lisp

@@ -1,12 +1,11 @@
 (defpackage #:iup-tuio
-  (:use #:common-lisp)
+  (:use #:common-lisp
+        #:serapeum)
   (:export #:open)
-  (:import-from #:iup-utils
-		#:alias)
   (:shadow #:open))
 
 (in-package #:iup-tuio)
 
-(alias 'open #'iup-tuio-cffi::%iup-tuio-open)
+(defalias open #'iup-tuio-cffi::%iup-tuio-open)
 
 (iup::defiupclasses "IUP-TUIO")