Mon May 11 14:30:33 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* cleanup: use package alexandria.
hunk ./src/cxx-method.lisp 43
- (alexandria:symbolicate (closer-mop:generic-function-name cxx-generic-function)
- #\/ (write-to-string argument-count))))
+ (symbolicate (closer-mop:generic-function-name cxx-generic-function)
+ #\/ (write-to-string argument-count))))
hunk ./src/method.lisp 16
- ; `(defconstant ,symbol
- ; ,(enum-call method))
- `(alexandria:define-constant ,symbol
+ `(define-constant ,symbol
hunk ./src/method.lisp 37
-(defun static-method-definition (method smoke)
+(defun static-method-definition (method)
hunk ./src/method.lisp 116
- (multiple-value-bind (def export) (static-method-definition method smoke)
+ (multiple-value-bind (def export) (static-method-definition method)
hunk ./src/method.lisp 123
- (ensure-generic-methods ',(alexandria:hash-table-alist generics))
+ (ensure-generic-methods ',(hash-table-alist generics))
hunk ./src/overload-resolution.lisp 32
- (char< (char method-name diff) (char name diff))))
+ (char< (char method-name diff) (char name diff))))
hunk ./src/overload-resolution.lisp 217
- (alexandria:if-let
+ (if-let
hunk ./src/overload-resolution.lisp 283
- ,@(mapcar (alexandria:curry #'apply
+ ,@(mapcar (curry #'apply
hunk ./src/overload-resolution.lisp 293
- `(progn ,@(loop for type-name in (alexandria:ensure-list type-names)
+ `(progn ,@(loop for type-name in (ensure-list type-names)
hunk ./src/overload-resolution.lisp 305
- (if (alexandria:starts-with-subseq
+ (if (starts-with-subseq
hunk ./src/overload-resolution.lisp 308
- ;`(integer 0 ,(1- (expt 2 bits)))
hunk ./src/overload-resolution.lisp 310
- ;`(integer ,(- (expt 2 (1- bits)))
- ; ,(1- (expt 2 (1- bits)))))))
hunk ./src/overload-resolution.lisp 318
- (alexandria:when-let (test (gethash (name type) *from-lisp-translations*))
+ (when-let (test (gethash (name type) *from-lisp-translations*))
hunk ./src/overload-resolution.lisp 466
-
-
-(defun cxx-coerce-p-using-type (type result-type)
- "Returns true when an object of type TYPE can be convertet to an object
-of smoke type RESULT-TYPE."
-)
- [_$_]
-
-(defun cxx-coerce (object result-type)
-)
hunk ./src/package.lisp 13
- (:use #:cl #:cffi #:trivial-garbage #:bordeaux-threads #:cxx-support)
+ (:use #:cl #:cffi #:trivial-garbage #:bordeaux-threads #:cxx-support
+ #:alexandria)
hunk ./src/using-type.lisp 4
- `(macrolet ((,(alexandria:symbolicate object '.typep)
+ `(macrolet ((,(symbolicate object '.typep)
hunk ./src/using-type.lisp 7
- (,(alexandria:symbolicate object '.type-of) ()
+ (,(symbolicate object '.type-of) ()
hunk ./src/using-type.lisp 36
- `(macrolet ((,(alexandria:symbolicate object-type '.typep)
+ `(macrolet ((,(symbolicate object-type '.typep)
hunk ./src/using-type.lisp 39
- (,(alexandria:symbolicate object-type '.type-of) ()
+ (,(symbolicate object-type '.type-of) ()
hunk ./src/using-type.lisp 43
- `(,(alexandria:symbolicate function-name '-using-types)
+ `(,(symbolicate function-name '-using-types)
hunk ./src/using-type.lisp 46
- `(,(alexandria:symbolicate function-name '-using-type)
+ `(,(symbolicate function-name '-using-type)
hunk ./src/using-type.lisp 59
- (defun ,(alexandria:symbolicate name '-using-type) ,lambda-list
+ (defun ,(symbolicate name '-using-type) ,lambda-list
hunk ./src/using-type.lisp 73
- `(,(alexandria:symbolicate function-name '-using-types)
+ `(,(symbolicate function-name '-using-types)
hunk ./src/using-type.lisp 76
- `(,(alexandria:symbolicate function-name '-using-type)
+ `(,(symbolicate function-name '-using-type)
hunk ./src/using-type.lisp 80
- `(function ,(alexandria:symbolicate name '-using-types))))
- (defun ,(alexandria:symbolicate name '-using-types) ,lambda-list
+ `(function ,(symbolicate name '-using-types))))
+ (defun ,(symbolicate name '-using-types) ,lambda-list