~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
src/c-types-impl.lisp: Refactor pretty-printing of function types.
[sod]
/
src
/
c-types-class-impl.lisp
diff --git
a/src/c-types-class-impl.lisp
b/src/c-types-class-impl.lisp
index
34c7eeb
..
1827415
100644
(file)
--- a/
src/c-types-class-impl.lisp
+++ b/
src/c-types-class-impl.lisp
@@
-7,7
+7,7
@@
;;;----- Licensing notice ---------------------------------------------------
;;;
;;;----- Licensing notice ---------------------------------------------------
;;;
-;;; This file is part of the Sensble Object Design, an object system for C.
+;;; This file is part of the Sens
i
ble Object Design, an object system for C.
;;;
;;; SOD is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;;
;;; SOD is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
@@
-30,8
+30,8
@@
(export '(c-class-type c-type-class))
(defclass c-class-type (simple-c-type)
(export '(c-class-type c-type-class))
(defclass c-class-type (simple-c-type)
- ((class :initarg :class :initform nil
- :type (or null sod-class) :accessor c-type-class)
+ ((
%
class :initarg :class :initform nil
+
:type (or null sod-class) :accessor c-type-class)
(tag :initarg :tag))
(:documentation
"A SOD class, as a C type.
(tag :initarg :tag))
(:documentation
"A SOD class, as a C type.
@@
-91,6
+91,7
@@
(values it (slot-value it 'tag))
(let* ((tag (gensym "TAG-"))
(type (intern-c-type 'c-class-type :name name :tag tag)))
(values it (slot-value it 'tag))
(let* ((tag (gensym "TAG-"))
(type (intern-c-type 'c-class-type :name name :tag tag)))
+ (setf (gethash name *module-type-map*) type)
(values type tag)))
;; If no qualifiers are wanted then we've already found or created the
(values type tag)))
;; If no qualifiers are wanted then we've already found or created the