Commit 548f4eb3 authored by Daniel Kochmański's avatar Daniel Kochmański

Merge branch 'ansi-nicknames' into 'develop'

ansi conformance: remove spurious package nicknames

See merge request !141
parents 72127722 eee8ed75
Pipeline #52092195 failed with stage
......@@ -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);
......@@ -574,12 +573,12 @@ cl_boot(int argc, char **argv)
cl_core.lisp_package =
cl_list(2, str_cl, str_LISP),
cl_list(1, str_cl),
cl_core.user_package =
cl_list(2, str_cl_user, str_user),
cl_list(1, str_cl_user),
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."
(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)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment