diff --git a/src/gen/common/generator/constant.lisp b/src/gen/common/generator/constant.lisp index 5a7fdf2..43af6ca 100644 --- a/src/gen/common/generator/constant.lisp +++ b/src/gen/common/generator/constant.lisp @@ -62,11 +62,11 @@ (defmethod generate-binding ((generator generator) (entity claw.spec:foreign-variable) &key) (let* ((name (c-name->lisp (claw.spec:format-full-foreign-entity-name entity) :variable)) - (type (check-entity-known (claw.spec:foreing-variable-type entity))) + (type (check-entity-known (claw.spec:foreign-variable-type entity))) (value (claw.spec:foreign-entity-value entity)) (decorated-name (format-symbol (symbol-package name) "*~A*" name))) (export-symbol decorated-name) - (if (claw.spec:foreing-variable-external-p entity) + (if (claw.spec:foreign-variable-external-p entity) `((define-symbol-macro ,decorated-name ,(if (typep type 'claw.spec:foreign-array) `(cffi:foreign-symbol-pointer ,(claw.spec:foreign-entity-name entity)) @@ -78,4 +78,4 @@ (defmethod foreign-entity-dependencies ((entity claw.spec:foreign-variable)) - (find-foreign-dependencies (claw.spec:foreing-variable-type entity))) + (find-foreign-dependencies (claw.spec:foreign-variable-type entity))) diff --git a/src/gen/iffi/cxx/generator/variable.lisp b/src/gen/iffi/cxx/generator/variable.lisp index 9e4a88e..4084ea2 100644 --- a/src/gen/iffi/cxx/generator/variable.lisp +++ b/src/gen/iffi/cxx/generator/variable.lisp @@ -3,7 +3,7 @@ (defun adapt-variable-setter (variable) (multiple-value-bind (variable-type adapted-p) - (adapt-type (check-entity-known (claw.spec:foreing-variable-type variable))) + (adapt-type (check-entity-known (claw.spec:foreign-variable-type variable))) (let ((unaliased (claw.spec:unalias-foreign-entity variable-type))) (unless (or (typep unaliased 'claw.spec:foreign-array) (typep unaliased 'claw.spec:foreign-const-qualifier)) @@ -21,7 +21,7 @@ (defun adapt-variable-getter (variable) (multiple-value-bind (variable-type adapted-p) - (adapt-type (check-entity-known (claw.spec:foreing-variable-type variable))) + (adapt-type (check-entity-known (claw.spec:foreign-variable-type variable))) (let* ((unaliased (claw.spec:unalias-foreign-entity variable-type)) (array-p (typep unaliased 'claw.spec:foreign-array)) (result-type (if array-p diff --git a/src/resect/prepare.lisp b/src/resect/prepare.lisp index edfbcca..4e631dc 100644 --- a/src/resect/prepare.lisp +++ b/src/resect/prepare.lisp @@ -228,7 +228,7 @@ (prepare-type (%resect:declaration-type param-decl)))) -(defmethod prepare-declaration ((kind (eql :functino-prototype)) declaration &key) +(defmethod prepare-declaration ((kind (eql :function-prototype)) declaration &key) (prepare-declaration :function declaration)) (defmethod prepare-declaration ((kind (eql :typedef)) declaration &key) diff --git a/src/spec/entity.lisp b/src/spec/entity.lisp index e65dc40..a56a676 100644 --- a/src/spec/entity.lisp +++ b/src/spec/entity.lisp @@ -82,9 +82,9 @@ #:foreign-method-deleted-p #:foreign-variable - #:foreing-variable-type + #:foreign-variable-type #:foreign-entity-value - #:foreing-variable-external-p + #:foreign-variable-external-p #:foreign-templatable-p #:foreign-entity-template-p @@ -549,10 +549,10 @@ :reader foreign-entity-value) (type :initarg :type :initform (error ":type missing") - :reader foreing-variable-type) + :reader foreign-variable-type) (external-p :initarg :external :initform nil - :reader foreing-variable-external-p))) + :reader foreign-variable-external-p))) ;;;