...
 
Commits (2)
......@@ -107,6 +107,8 @@ in C code
such signals and simply not install a signal handler for floating point
exceptions. This could lead to such signals being generated and caught by
another signal handler if ECL was used as an embedded library.
- Non-standard package nicknames (USER for COMMON-LISP-USER and LISP for
COMMON-LISP) have been removed.
* 16.1.3 changes since 16.1.2
** Announcement
Dear Community,
......
......@@ -295,7 +295,6 @@ ecl_def_ct_base_string(str_LISP,"LISP",4,static,const);
ecl_def_ct_base_string(str_c,"C",1,static,const);
ecl_def_ct_base_string(str_compiler,"COMPILER",8,static,const);
ecl_def_ct_base_string(str_ffi,"FFI",3,static,const);
ecl_def_ct_base_string(str_user,"USER",4,static,const);
ecl_def_ct_base_string(str_keyword,"KEYWORD",7,static,const);
ecl_def_ct_base_string(str_si,"SI",2,static,const);
ecl_def_ct_base_string(str_sys,"SYS",3,static,const);
......@@ -574,12 +573,12 @@ cl_boot(int argc, char **argv)
cl_core.lisp_package =
ecl_make_package(str_common_lisp,
cl_list(2, str_cl, str_LISP),
cl_list(1, str_cl),
ECL_NIL,
ECL_NIL);
cl_core.user_package =
ecl_make_package(str_common_lisp_user,
cl_list(2, str_cl_user, str_user),
cl_list(1, str_cl_user),
ecl_list1(cl_core.lisp_package),
ECL_NIL);
cl_core.keyword_package =
......
......@@ -56,7 +56,7 @@
;;; * Trick to make names shorter in C files
;;;
(si::package-lock "CL" nil)
(rename-package "CL" "CL" '("COMMON-LISP" "LISP"))
(rename-package "CL" "CL" '("COMMON-LISP"))
;;;
;;; * Add include path to not yet installed headers, and remove include flag
......
......@@ -11,7 +11,8 @@ package is obtained when loading the ASDF library with @code{(require 'asdf)}.
@caption{ECL packages}
@multitable @columnfractions .25 .25 .2 .3
@headitem Name @tab Nickname @tab In module @tab Description
@item @code{COMMON-LISP} @tab @code{CL, LISP} @tab @code{ECL core} @tab Main Common Lisp package.
@item @code{COMMON-LISP} @tab @code{CL} @tab @code{ECL core} @tab Main Common Lisp package.
@item @code{COMMON-LISP-USER} @tab @code{CL-USER} @tab @code{ECL core} @tab User package.
@item @code{CLOS} @tab @code{MOP} @tab @code{ECL core} @tab Symbols from the AMOP.
@item @code{EXT} @tab @code{ } @tab @code{ECL core} @tab ECL extensions to the language & library.
@item @code{SYSTEM} @tab @code{SI, SYS} @tab @code{ECL core} @tab Functions and variables internal to the implementation. Never to be used.
......
......@@ -5,7 +5,7 @@
;;
;; Configuration file for ECL
;;
(in-package "LISP")
(in-package "COMMON-LISP")
#+(and (not ecl-min) (not nacl) (not windows) (not mingw32) uname)
(ffi:clines "
......
......@@ -565,7 +565,7 @@ Prints information about OBJECT to STREAM."
(values))))
(defun help* (string &optional (package "CL"))
"Args: (string &optional (package-spec 'lisp))
"Args: (string &optional (package-spec 'common-lisp))
ECL specific.
Prints the documentation associated with those symbols in the specified
package whose print names contain STRING as substring. STRING may be a
......
......@@ -628,7 +628,7 @@ Use special code 0 to cancel this operation.")
(function (funcall *tpl-prompt-hook*))
(t (fresh-line)
(format t "~A~V,,,'>A "
(if (eq *package* (find-package 'user))
(if (eq *package* (find-package 'cl-user))
""
(package-name *package*))
(- *tpl-level* *step-level* -1)
......