fucking weird bug where it overwrites cffi functions?????

cl-sipc.lisp

@@ -1,6 +1,7 @@
 ;; cl-sipc
 
 (in-package :cl-sipc)
+(use-package :cl-sipc-mem)
 
 (defparameter *on-error* #'(lambda (err) nil))
 (defparameter *on-message* #'(lambda (msg)

package.lisp

@@ -4,3 +4,6 @@
   (:use #:cl
 	#:cffi)
   (:nicknames :sipc))
+
+(defpackage #:cl-sipc-mem
+  (:use #:cl))

pointer.lisp

@@ -1,6 +1,6 @@
 ;; pointer
 
-(in-package :cl-sipc)
+(in-package :cl-sipc-mem)
 
 (defstruct pointer
   memory
@@ -70,7 +70,8 @@
        do (setf (aref vec x) (mem-aref (pointer-memory ptr) type x)))
     vec))
 
-(mapc #'export '( make-pointer
+(mapc #'export '(
+		 
 		 pointer
 		 pointer-memory
 		 pointer-p