Lines Matching refs:symbol
1 /* Define a C preprocessor symbol that can be used in interface files
342 (defun read-symbol-from-string (string)
355 (let*( (sym (read-symbol-from-string
382 (read-symbol-from-string (full-name id type arity class))))
414 (read-symbol-from-string (string-lispify cname)))
417 (cl::multiple-value-bind (symbol package)
419 (cl::let ((args (cl::list (cl::if (cl::consp symbol)
420 (cl::cadr symbol) symbol)
424 symbol))
431 (cl::let ((symbol (id-convert-and-export string :type :constant)))
433 (cl::defconstant ,symbol ,value))))
456 (cl::let* ((symbol (id-convert-and-export name :type type
467 symbol
483 (cl::defun ,symbol ,defun-args
485 ,@(maybe-return-value symbol defun-args))))))
491 (cl::let* ((symbol (id-convert-and-export name :type type
495 symbol
509 (cl::defmethod ,symbol ,defmethod-args
511 ,@(maybe-return-value symbol defmethod-args))))))
514 (cl::let ((symbol (id-convert-and-export name
517 (cl::defun ,symbol (&rest args)
520 for symbol-n = (id-convert-and-export name
522 collect `(,arity (cl::apply #',symbol-n args)))
523 (t (cl::error "No applicable wrapper-methods for foreign call ~a with args ~a of classes ~a" ',symbol args (cl::mapcar #'(cl::lambda (x) (cl::class-name (cl::class-of x))) args)))
528 (symbol (id-convert-and-export name :type :type)))
530 (ff:def-foreign-type ,symbol (:class ))
535 (symbol (id-convert-and-export name :type :type)))
537 (ff:def-foreign-type ,symbol ,@rest)
539 ((foreign-type :initform ',symbol :initarg :foreign-type
543 (cl::let ((symbol (id-convert-and-export name :type :type)))
545 (ff:def-foreign-type ,symbol ,@rest))))
579 (cl::let ((symbol (id-convert-and-export name :type type)))
581 (ff:def-foreign-variable (,symbol ,mangled-name) :type ,ftype))))
589 (cl::export (cl::loop for sym being each present-symbol of cl::*package*
590 when (cl::or (starts-with-p (cl::symbol-name sym) (cl::symbol-name :swig-))
591 (starts-with-p (cl::symbol-name sym) (cl::symbol-name :identifier-convert-)))
