Lines Matching defs:package
58 #include "lisp/package.h"
104 * Search for the specified object in the current package */
110 /* if not already in keyword package, move atom to keyword package */
319 {LispFunction, Lisp_Export, "export symbols &optional package"},
332 {LispFunction, Lisp_FindSymbol, "find-symbol string &optional package", 1},
333 {LispFunction, Lisp_FindPackage, "find-package name"},
360 {LispMacro, Lisp_InPackage, "in-package name"},
362 {LispFunction, Lisp_Import, "import symbols &optional package"},
366 {LispFunction, Lisp_Intern, "intern string &optional package", 1},
394 {LispFunction, Lisp_MakePackage, "make-package package-name &key nicknames use"},
439 {LispFunction, Lisp_PackageName, "package-name package"},
440 {LispFunction, Lisp_PackageNicknames, "package-nicknames package"},
441 {LispFunction, Lisp_PackageUseList, "package-use-list package"},
442 {LispFunction, Lisp_PackageUsedByList, "package-used-by-list package"},
545 {LispFunction, Lisp_SymbolPackage, "symbol-package symbol"},
557 {LispFunction, Lisp_Unexport, "unexport symbols &optional package"},
699 /* If the package was changed and an error happened */
894 LispObj *package = CAR(entry);
895 LispPackage *pack = package->data.package.package;
900 /* Protect the package cell */
901 package->mark = 1;
903 /* Protect package name */
904 package->data.package.name->mark = 1;
906 /* Protect package nicknames */
907 LispMark(package->data.package.nicknames);
1361 property->package = lisp__data.pack;
1362 if (atom->package == NULL)
1363 atom->package = PACKAGE;
1431 if (atom->object == lisp__data.package) {
1433 LispDestroy("Symbol %s must be a package, not %s",
1434 ATOMID(lisp__data.package)->value, STROBJ(object));
1435 lisp__data.pack = object->data.package.package;
1714 * key1, key2, and key3 will be in the keyword package
1949 /* Add to keyword package, and set the keyword in the
2090 /* Add to keyword package, and set the keyword in the
2626 if (intern && atom->package == NULL)
2627 atom->package = PACKAGE;
2642 atom->package = PACKAGE;
2662 if (atom->package == NULL)
2663 atom->package = PACKAGE;
2679 atom->package = PACKAGE;
2695 if (symbol->data.atom->package == NULL)
2696 symbol->data.atom->package = PACKAGE;
2972 /* Save package environment */
2976 /* Change package environment */
2980 /* Create symbol in keyword package */
2983 /* Restore package environment */
2988 /* Just create symbol in keyword package */
3123 LispObj *package = LispNew(name, nicknames);
3126 package->type = LispPackage_t;
3127 package->data.package.name = name;
3128 package->data.package.nicknames = nicknames;
3129 package->data.package.package = pack;
3131 package->data.package.package->atoms = hash_new(STRTBLSZ, NULL);
3135 return (package);
3170 /* package must be of type LispPackage_t */
3172 LispUsePackage(LispObj *package)
3179 if (package == PACKAGE)
3182 /* Check if package not already in use-package list */
3186 if (*pentry == package)
3189 /* Remember this package is in the use-package list */
3201 lisp__data.pack->use.pairs[lisp__data.pack->use.length++] = package;
3203 /* Import all extern symbols from package */
3204 pack = package->data.package.package;
3234 /* Create copy of atom in current package */
3237 * property, the current package is the owner, not the previous one. */
3245 /* Symbol already exists in the current package,
3247 LispContinuable("Symbol %s already defined in package %s. Redefine?",
3248 ATOMID(symbol)->value, THESTR(PACKAGE->data.package.name));
3262 /* Symbol is already available in the current package, just update */
3274 /* Set home-package and unique-atom associated with symbol */
3275 atom->package = symbol->data.atom->package;
3294 /* Increase reference count, more than one package using the symbol */
3302 /* This does not automatically export symbols to another package using
3303 * the symbols of the current package */
3327 if (name->constant && name->package == lisp__data.keyword)
3385 if (name->constant && name->package == lisp__data.keyword)
3421 if (name->package) {
3423 LispPackage *pack = name->package->data.package.package;
3513 pack = name->package->data.package.package;
3531 pack = name->package->data.package.package;
3574 LispPackage *pack = name->package->data.package.package;
4225 * Builtin functions require that the keyword be in the keyword package.
4249 * same symbol in the keyword package. */
4436 * as they point to the same object in the keyword package */
5187 /* Initialize package system, the current package is LISP. Order of
5192 /* Make LISP package the current one */
5194 lisp__data.lisp->data.package.package;
5196 /* Allocate space in LISP package */
5206 lisp__data.package = atomseg.freeobj;
5209 lisp__data.package->type = LispAtom_t;
5210 lisp__data.package->data.atom = atom;
5211 atom->object = lisp__data.package;
5212 atom->package = lisp__data.lisp;
5214 /* Set package list, to be used by (gc) and (list-all-packages) */
5218 LispProclaimSpecial(lisp__data.package, lisp__data.lisp, NIL);
5222 /* Changing *PACKAGE* is like calling (in-package) */
5223 lisp__data.package->data.atom->watch = 1;
5226 LispExportSymbol(lisp__data.package);
5232 /* Create the KEYWORD package */
5240 /* Allow easy access to the keyword package */
5242 lisp__data.key = object->data.package.package;
5400 /* Create and make EXT the current package */
5402 lisp__data.pack = lisp__data.savepack = PACKAGE->data.package.package;
5407 /* Import LISP external symbols in EXT package */
5414 /* Create and make USER the current package */
5419 lisp__data.pack = lisp__data.savepack = PACKAGE->data.package.package;
5424 /* USER package inherits all LISP external symbols */