Lines Matching refs:symbol
94 LispDestroy("FIND-PACKAGE: %s is not a string or symbol", STROBJ(name));
127 /* condition 2: intern and extern symbols or symbol is extern */
155 /* package must be of type LispPackage_t, symbol type is checked
159 LispObj *package, LispObj *symbol, int export)
161 CHECK_SYMBOL(symbol);
164 symbol->data.atom->package == lisp__data.keyword)
165 LispDestroy("%s: symbol %s cannot be unexported",
166 STRFUN(builtin), STROBJ(symbol));
170 symbol->data.atom->ext = export ? 1 : 0;
176 string = ATOMID(symbol);
186 LispDestroy("%s: the symbol %s is not available in package %s",
187 STRFUN(builtin), STROBJ(symbol),
193 LispDoImport(LispBuiltin *builtin, LispObj *symbol)
195 CHECK_SYMBOL(symbol);
196 LispImportSymbol(symbol);
249 /* Traverse the symbol list, executing body */
303 LispObj *symbol;
320 /* Search symbol in specified package */
325 symbol = NULL;
328 symbol = NIL;
330 symbol = T;
331 if (symbol) {
333 return (symbol);
338 symbol = atom->object;
340 if (symbol == NULL || symbol->data.atom->package == NULL) {
343 /* symbol does not exist in the specified package, create a new
344 * internal symbol */
347 symbol = ATOM(ptr);
360 symbol = ATOM(ptr);
367 symbol->data.atom->unreadable = !LispCheckAtomString(ptr);
368 /* If symbol being create in the keyword package, make it external */
370 symbol->data.atom->ext = symbol->data.atom->constant = 1;
373 symbol = NIL;
376 if (symbol->data.atom->package == package)
377 RETURN(0) = symbol->data.atom->ext ? Kexternal : Kinternal;
382 return (symbol);
416 find-all-symbols string-or-symbol
439 LispDestroy("%s: %s is not a string or symbol",
451 /* Return only one pointer to a matching symbol */
473 find-symbol string &optional package
585 /* Update pointer to package symbol table */
636 /* Error checks done, package_name is either a symbol or string */
681 /* Update pointer to package symbol table */
692 /* Restore pointer to package symbol table */
Indexes created Fri Jun 26 00:24:39 UTC 2026