Changeset 6101


Ignore:
Timestamp:
Mar 28, 2007, 6:47:18 AM (13 years ago)
Author:
gb
Message:

ENSURE-FOREIGN-TYPE.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/objc-gf/ccl/lib/foreign-types.lisp

    r6054 r6101  
    445445(defsetf auxiliary-foreign-type %set-auxiliary-foreign-type)
    446446
     447
     448(defun ensure-foreign-type (x)
     449  (if (typep x 'foreign-type)
     450    x
     451    (parse-foreign-type x)))
    447452
    448453;;; *record-type-already-unparsed* -- internal
Note: See TracChangeset for help on using the changeset viewer.