This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp".
The branch, master has been updated via 2970ca060d1c2677b00cec111d6e64d8c92ef42c (commit) from 583fcce354c115bdba3ea1c01e2cd76da4251cc8 (commit)
Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below.
- Log ----------------------------------------------------------------- commit 2970ca060d1c2677b00cec111d6e64d8c92ef42c Author: Raymond Toy toy.raymond@gmail.com Date: Mon May 28 09:11:46 2012 -0700
Fix ticket:60
src/compiler/main.lisp: o Remove special treatment of EXPORT (and others) in the compiler. I think we only need to treat IN-PACKAGE and DEFPACKAGE specially.
src/contrib/defsyste/defsystem.lisp: o Add FIND-SYSTEM to the defpackage export list for MAKE.
src/tools/hemcom.lisp: o Add defpackage for hemlock-internals since export no longer has the compile-time effect.
diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp index 544ccb0..be5f291 100644 --- a/src/compiler/main.lisp +++ b/src/compiler/main.lisp @@ -1210,11 +1210,10 @@ (if (atom form) (convert-and-maybe-compile form path) (case (car form) - ((make-package shadow shadowing-import export - unexport use-package unuse-package import - old-in-package %in-package %defpackage) + ((%in-package %defpackage) (process-cold-load-form form path t)) - ((error cerror break signal) + ((error cerror break signal make-package use-package unuse-package shadow + shadowing-import export unexport import) (process-cold-load-form form path nil)) (kernel:%compiler-defstruct (convert-and-maybe-compile form path) diff --git a/src/contrib/defsystem/defsystem.lisp b/src/contrib/defsystem/defsystem.lisp index 2d7f0ea..ae23dbc 100644 --- a/src/contrib/defsystem/defsystem.lisp +++ b/src/contrib/defsystem/defsystem.lisp @@ -1035,7 +1035,10 @@ ;;; Here I add the proper defpackage for CMU #+:CMU (defpackage "MAKE" (:use "COMMON-LISP" "CONDITIONS") - (:nicknames "MK")) + (:nicknames "MK") + (:export "DEFSYSTEM" "COMPILE-SYSTEM" "LOAD-SYSTEM" + "DEFINE-LANGUAGE" "*MULTIPLE-LISP-SUPPORT*" + "FIND-SYSTEM"))
#+:sbcl (defpackage "MAKE" (:use "COMMON-LISP") diff --git a/src/tools/hemcom.lisp b/src/tools/hemcom.lisp index ee56f5c..949f3e0 100644 --- a/src/tools/hemcom.lisp +++ b/src/tools/hemcom.lisp @@ -32,6 +32,94 @@ :nicknames '("HI") :use '("LISP" "EXTENSIONS" "SYSTEM")))
+(defpackage "HEMLOCK-INTERNALS" + (:nicknames "HI") + (:export + "*BUFFER-LIST*" "*BUFFER-NAMES*" "*CHARACTER-ATTRIBUTE-NAMES*" + "*COMMAND-NAMES*" "*CREATE-INITIAL-WINDOWS-HOOK*" "*CREATE-WINDOW-HOOK*" + "*DELETE-WINDOW-HOOK*" "*ECHO-AREA-BUFFER*" "*ECHO-AREA-STREAM*" + "*ECHO-AREA-WINDOW*" "*EDITOR-INPUT*" "*GLOBAL-VARIABLE-NAMES*" + "*INPUT-TRANSCRIPT*" "*INVOKE-HOOK*" "*KEY-EVENT-HISTORY*" + "*LAST-KEY-EVENT-TYPED*" "*LOGICAL-KEY-EVENT-NAMES*" "*MODE-NAMES*" + "*PARSE-DEFAULT*" "*PARSE-DEFAULT-STRING*" "*PARSE-HELP*" + "*PARSE-INPUT-REGION*" "*PARSE-PROMPT*" "*PARSE-STARTING-MARK*" + "*PARSE-STRING-TABLES*" "*PARSE-TYPE*" "*PARSE-VALUE-MUST-EXIST*" + "*PARSE-VERIFICATION-FUNCTION*" "*PRINT-REGION*" + "*RANDOM-TYPEOUT-BUFFERS*" "*RANDOM-TYPEOUT-HOOK*" "*REAL-EDITOR-INPUT*" + "*WINDOW-LIST*" "ABORT-RECURSIVE-EDIT" "ADD-HOOK" + "AFTER-EDITOR-INITIALIZATIONS" "BIND-KEY" "BLANK-AFTER-P" + "BLANK-BEFORE-P" "BLANK-LINE-P" "BUFFER" "BUFFER-DELETE-HOOK" + "BUFFER-END" "BUFFER-END-MARK" "BUFFER-MAJOR-MODE" "BUFFER-MINOR-MODE" + "BUFFER-MODELINE-FIELD-P" "BUFFER-MODELINE-FIELDS" "BUFFER-MODES" + "BUFFER-MODIFIED" "BUFFER-NAME" "BUFFER-PATHNAME" "BUFFER-POINT" + "BUFFER-REGION" "BUFFER-SIGNATURE" "BUFFER-START" "BUFFER-START-MARK" + "BUFFER-VARIABLES" "BUFFER-WINDOWS" "BUFFER-WRITABLE" "BUFFER-WRITE-DATE" + "BUFFERP" "CENTER-WINDOW" "CHARACTER-ATTRIBUTE" + "CHARACTER-ATTRIBUTE-DOCUMENTATION" "CHARACTER-ATTRIBUTE-HOOKS" + "CHARACTER-ATTRIBUTE-NAME" "CHARACTER-ATTRIBUTE-P" "CHARACTER-OFFSET" + "CLEAR-ECHO-AREA" "CLEAR-EDITOR-INPUT" "CLRSTRING" "COMMAND" + "COMMAND-BINDINGS" "COMMAND-CASE" "COMMAND-DOCUMENTATION" + "COMMAND-FUNCTION" "COMMAND-NAME" "COMMANDP" "COMPLETE-STRING" + "COPY-MARK" "COPY-REGION" "COUNT-CHARACTERS" "COUNT-LINES" + "CURRENT-BUFFER" "CURRENT-POINT" "CURRENT-VARIABLE-TABLES" + "CURRENT-WINDOW" "CURSORPOS-TO-MARK" "DEFATTRIBUTE" "DEFAULT-FONT" + "DEFCOMMAND" "DEFHVAR" "DEFINE-LOGICAL-KEY-EVENT" "DEFINE-TTY-FONT" + "DEFMODE" "DELETE-AND-SAVE-REGION" "DELETE-BUFFER" "DELETE-CHARACTERS" + "DELETE-FONT-MARK" "DELETE-KEY-BINDING" "DELETE-LINE-FONT-MARKS" + "DELETE-MARK" "DELETE-REGION" "DELETE-STRING" "DELETE-VARIABLE" + "DELETE-WINDOW" "DIRECTORYP" "DISPLAYED-P" "DO-ALPHA-CHARS" "DO-STRINGS" + "EDITOR-DESCRIBE-FUNCTION" "EDITOR-ERROR" "EDITOR-ERROR-FORMAT-ARGUMENTS" + "EDITOR-ERROR-FORMAT-STRING" "EDITOR-FINISH-OUTPUT" "EDITOR-SLEEP" + "EMPTY-LINE-P" "END-LINE-P" "ENTER-WINDOW-AUTORAISE" "EXIT-HEMLOCK" + "EXIT-RECURSIVE-EDIT" "FETCH-CUT-STRING" "FILTER-REGION" "FIND-AMBIGUOUS" + "FIND-ATTRIBUTE" "FIND-CONTAINING" "FIND-PATTERN" "FIRST-LINE-P" + "FONT-MARK" "FUN-DEFINED-FROM-PATHNAME" "GET-COMMAND" "GET-KEY-EVENT" + "GETSTRING" "HANDLE-LISP-ERRORS" "HEMLOCK-BOUND-P" + "HEMLOCK-OUTPUT-STREAM" "HEMLOCK-OUTPUT-STREAM-P" "HEMLOCK-REGION-STREAM" + "HEMLOCK-REGION-STREAM-P" "HLET" "IN-RECURSIVE-EDIT" "INPUT-WAITING" + "INSERT-CHARACTER" "INSERT-REGION" "INSERT-STRING" "INVOKE-HOOK" + "KEY-TRANSLATION" "LAST-COMMAND-TYPE" "LAST-KEY-EVENT-CURSORPOS" + "LAST-LINE-P" "LINE" "LINE-BUFFER" "LINE-CHARACTER" "LINE-END" + "LINE-LENGTH" "LINE-NEXT" "LINE-OFFSET" "LINE-PLIST" "LINE-PREVIOUS" + "LINE-SIGNATURE" "LINE-START" "LINE-STRING" "LINE-TO-REGION" "LINE<" + "LINE<=" "LINE>" "LINE>=" "LINEP" "LINES-RELATED" "LISTEN-EDITOR-INPUT" + "LOGICAL-KEY-EVENT-DOCUMENTATION" "LOGICAL-KEY-EVENT-KEY-EVENTS" + "LOGICAL-KEY-EVENT-NAME" "LOGICAL-KEY-EVENT-P" "LOUD-MESSAGE" + "MAKE-BUFFER" "MAKE-COMMAND" "MAKE-EMPTY-REGION" + "MAKE-HEMLOCK-OUTPUT-STREAM" "MAKE-HEMLOCK-REGION-STREAM" + "MAKE-KBDMAC-STREAM" "MAKE-MODELINE-FIELD" "MAKE-RING" + "MAKE-STRING-TABLE" "MAKE-WINDOW" "MAKE-XWINDOW-LIKE-HWINDOW" + "MAP-BINDINGS" "MARK" "MARK-AFTER" "MARK-BEFORE" "MARK-CHARPOS" + "MARK-COLUMN" "MARK-KIND" "MARK-LINE" "MARK-TO-CURSORPOS" "MARK/=" + "MARK<" "MARK<=" "MARK=" "MARK>" "MARK>=" "MARKP" + "MERGE-RELATIVE-PATHNAMES" "MESSAGE" "MODE-DOCUMENTATION" "MODE-MAJOR-P" + "MODE-VARIABLES" "MODELINE-FIELD" "MODELINE-FIELD-FUNCTION" + "MODELINE-FIELD-NAME" "MODELINE-FIELD-P" "MODELINE-FIELD-WIDTH" + "MODIFY-KBDMAC-STREAM" "MOVE-FONT-MARK" "MOVE-MARK" "MOVE-TO-COLUMN" + "MOVE-TO-POSITION" "NEW-SEARCH-PATTERN" "NEXT-CHARACTER" "NEXT-WINDOW" + "NINSERT-REGION" "PAUSE-HEMLOCK" "PREFIX-ARGUMENT" "PREVIOUS-CHARACTER" + "PREVIOUS-WINDOW" "PROMPT-FOR-BUFFER" "PROMPT-FOR-EXPRESSION" + "PROMPT-FOR-FILE" "PROMPT-FOR-INTEGER" "PROMPT-FOR-KEY" + "PROMPT-FOR-KEY-EVENT" "PROMPT-FOR-KEYWORD" "PROMPT-FOR-STRING" + "PROMPT-FOR-VARIABLE" "PROMPT-FOR-Y-OR-N" "PROMPT-FOR-YES-OR-NO" + "READ-FILE" "RECURSIVE-EDIT" "REDISPLAY" "REDISPLAY-ALL" "REGION" + "REGION-BOUNDS" "REGION-END" "REGION-START" "REGION-TO-STRING" "REGIONP" + "REMOVE-HOOK" "REMOVE-SCHEDULED-EVENT" "REPLACE-PATTERN" "REPROMPT" + "REVERSE-FIND-ATTRIBUTE" "RING" "RING-LENGTH" "RING-POP" "RING-PUSH" + "RING-REF" "RINGP" "ROTATE-RING" "SAME-LINE-P" "SCHEDULE-EVENT" + "SCROLL-WINDOW" "SEARCH-CHAR-CODE-LIMIT" "SEARCH-PATTERN" + "SEARCH-PATTERN-P" "SET-REGION-BOUNDS" "SETV" "SHADOW-ATTRIBUTE" + "SHOW-MARK" "START-LINE-P" "STORE-CUT-STRING" "STRING-TABLE" + "STRING-TABLE-P" "STRING-TABLE-SEPARATOR" "STRING-TO-REGION" + "STRING-TO-VARIABLE" "SYNTAX-CHAR-CODE-LIMIT" "UNGET-KEY-EVENT" + "UNSHADOW-ATTRIBUTE" "UPDATE-MODELINE-FIELD" "UPDATE-MODELINE-FIELDS" + "USE-BUFFER" "VALUE" "VARIABLE-DOCUMENTATION" "VARIABLE-HOOKS" + "VARIABLE-NAME" "VARIABLE-VALUE" "WINDOW" "WINDOW-BUFFER" + "WINDOW-DISPLAY-END" "WINDOW-DISPLAY-RECENTERING" "WINDOW-DISPLAY-START" + "WINDOW-FONT" "WINDOW-HEIGHT" "WINDOW-POINT" "WINDOW-WIDTH" "WINDOWP" + "WITH-INPUT-FROM-REGION" "WITH-MARK" "WITH-OUTPUT-TO-MARK" + "WITH-POP-UP-DISPLAY" "WITH-WRITABLE-BUFFER" "WRITE-FILE"))) + (unless (find-package "HEMLOCK") (make-package "HEMLOCK" :nicknames '("ED")
-----------------------------------------------------------------------
Summary of changes: src/compiler/main.lisp | 7 +-- src/contrib/defsystem/defsystem.lisp | 5 ++- src/tools/hemcom.lisp | 88 ++++++++++++++++++++++++++++++++++ 3 files changed, 95 insertions(+), 5 deletions(-)
hooks/post-receive