From d0125a796ed379e2443676ca811a58449b0bffe9 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Mon, 19 Apr 2010 17:49:02 +0000 Subject: [PATCH] Remove _N"" reader macro from docstrings when possible. --- compiler/generic/objdef.lisp | 16 ++++++++-------- compiler/generic/primtype.lisp | 4 ++-- compiler/generic/utils.lisp | 12 ++++++------ compiler/x86/c-call.lisp | 4 ++-- compiler/x86/macros.lisp | 18 +++++++++--------- 5 files changed, 27 insertions(+), 27 deletions(-) diff --git a/compiler/generic/objdef.lisp b/compiler/generic/objdef.lisp index 2ff8e46a2..9af8d76f7 100644 --- a/compiler/generic/objdef.lisp +++ b/compiler/generic/objdef.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/objdef.lisp,v 1.62 2010/03/19 15:19:01 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/objdef.lisp,v 1.63 2010/04/19 17:49:02 rtoy Rel $") ;;; ;;; ********************************************************************** ;;; @@ -72,29 +72,29 @@ (eval-when (compile eval load) (defconstant lowtag-bits 3 - _N"Number of bits at the low end of a pointer used for type information.") + "Number of bits at the low end of a pointer used for type information.") (defconstant lowtag-mask (1- (ash 1 lowtag-bits)) - _N"Mask to extract the low tag bits from a pointer.") + "Mask to extract the low tag bits from a pointer.") (defconstant lowtag-limit (ash 1 lowtag-bits) - _N"Exclusive upper bound on the value of the low tag bits from a + "Exclusive upper bound on the value of the low tag bits from a pointer.") (defconstant type-bits 8 - _N"Number of bits used in the header word of a data block for typeing.") + "Number of bits used in the header word of a data block for typeing.") (defconstant type-mask (1- (ash 1 type-bits)) - _N"Mask to extract the type from a header word.") + "Mask to extract the type from a header word.") ); eval-when (defparameter target-most-positive-fixnum (1- (ash 1 #-amd64 29 #+amd64 61)) - _N"most-positive-fixnum in the target architecture.") + "most-positive-fixnum in the target architecture.") (defparameter target-most-negative-fixnum (ash -1 #-amd64 29 #+amd64 61) - _N"most-negative-fixnum in the target architecture.") + "most-negative-fixnum in the target architecture.") ;;; The main types. These types are represented by the low three bits of the diff --git a/compiler/generic/primtype.lisp b/compiler/generic/primtype.lisp index e70136b08..6c31bbaa4 100644 --- a/compiler/generic/primtype.lisp +++ b/compiler/generic/primtype.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/primtype.lisp,v 1.26 2010/03/19 15:19:01 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/primtype.lisp,v 1.27 2010/04/19 17:49:02 rtoy Rel $") ;;; ;;; ********************************************************************** ;;; @@ -220,7 +220,7 @@ ((complex long-float) . simple-array-complex-long-float) #+double-double ((complex double-double-float) . simple-array-complex-double-double-float) (t . simple-vector)) - _N"An a-list for mapping simple array element types to their + "An a-list for mapping simple array element types to their corresponding primitive types.") diff --git a/compiler/generic/utils.lisp b/compiler/generic/utils.lisp index e705e4f5d..16e25b3cf 100644 --- a/compiler/generic/utils.lisp +++ b/compiler/generic/utils.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/utils.lisp,v 1.11 2010/03/19 15:19:01 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/utils.lisp,v 1.12 2010/04/19 17:49:02 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -25,7 +25,7 @@ ;;;; Handy routine for making fixnums: (defun fixnumize (num) - _N"Make a fixnum out of NUM. (i.e. shift by two bits if it will fit.)" + "Make a fixnum out of NUM. (i.e. shift by two bits if it will fit.)" ;; the bounds must be hardcoded for cross-compilation (if (<= #-amd64 #x-20000000 #+amd64 #x-2000000000000000 num @@ -42,7 +42,7 @@ (and (member symbol static-symbols) t))) (defun static-symbol-offset (symbol) - _N"Returns the byte offset of the static symbol Symbol." + "Returns the byte offset of the static symbol Symbol." (if symbol (let ((posn (position symbol static-symbols))) (unless posn (error _"~S is not a static symbol." symbol)) @@ -54,7 +54,7 @@ 0)) (defun offset-static-symbol (offset) - _N"Given a byte offset, Offset, returns the appropriate static symbol." + "Given a byte offset, Offset, returns the appropriate static symbol." (if (zerop offset) nil (multiple-value-bind @@ -68,7 +68,7 @@ (elt static-symbols n)))) (defun static-function-offset (name) - _N"Return the (byte) offset from NIL to the start of the fdefn object + "Return the (byte) offset from NIL to the start of the fdefn object for the static function NAME." (let ((static-syms (length static-symbols)) (static-function-index (position name static-functions))) @@ -82,7 +82,7 @@ (* fdefn-raw-addr-slot word-bytes)))) (defun offset-static-function (offset) - _N"Given a byte offset, Offset, returns the appropriate static function + "Given a byte offset, Offset, returns the appropriate static function symbol." (let* ((static-syms (length static-symbols)) (offsets (+ (* static-syms (pad-data-block symbol-size)) diff --git a/compiler/x86/c-call.lisp b/compiler/x86/c-call.lisp index b85abd083..dd18f26c3 100644 --- a/compiler/x86/c-call.lisp +++ b/compiler/x86/c-call.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/c-call.lisp,v 1.21 2010/03/19 15:19:01 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/c-call.lisp,v 1.22 2010/04/19 17:49:02 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -267,7 +267,7 @@ (eq (machine-rep type1) (machine-rep type2))))) (defun make-callback-trampoline (index fn-type) - _N"Cons up a piece of code which calls call-callback with INDEX and a + "Cons up a piece of code which calls call-callback with INDEX and a pointer to the arguments." (let* ((return-type (alien-function-type-result-type fn-type)) (segment (make-segment)) diff --git a/compiler/x86/macros.lisp b/compiler/x86/macros.lisp index 94e853cc4..896866c96 100644 --- a/compiler/x86/macros.lisp +++ b/compiler/x86/macros.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/macros.lisp,v 1.27 2010/03/19 15:19:01 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/macros.lisp,v 1.28 2010/04/19 17:49:02 rtoy Rel $") ;;; ;;; ********************************************************************** ;;; @@ -50,7 +50,7 @@ ;;; Instruction-like macros. (defmacro move (dst src) - _N"Move SRC into DST unless they are location=." + "Move SRC into DST unless they are location=." (once-only ((n-dst dst) (n-src src)) `(unless (location= ,n-dst ,n-src) @@ -103,7 +103,7 @@ (- other-pointer-type)))) (defmacro load-type (target source &optional (offset 0)) - _N"Loads the type bits of a pointer into target independent of + "Loads the type bits of a pointer into target independent of byte-ordering issues." (once-only ((n-target target) (n-source source) @@ -253,7 +253,7 @@ (values)) (defun allocation (alloc-tn size &optional inline dynamic-extent) - _N"Allocate an object with a size in bytes given by Size. + "Allocate an object with a size in bytes given by Size. The size may be an integer or a TN. If Inline is a VOP node-var then it is used to make an appropriate speed vs size decision. If Dynamic-Extent is true, and otherwise @@ -271,7 +271,7 @@ (defmacro with-fixed-allocation ((result-tn type-code size &optional inline) &rest forms) - _N"Allocate an other-pointer object of fixed Size with a single + "Allocate an other-pointer object of fixed Size with a single word header having the specified Type-Code. The result is placed in Result-TN." `(pseudo-atomic @@ -311,20 +311,20 @@ (inst byte (aref ,vector i))))))))) (defmacro error-call (vop error-code &rest values) - _N"Cause an error. ERROR-CODE is the error to cause." + "Cause an error. ERROR-CODE is the error to cause." (cons 'progn (emit-error-break vop error-trap error-code values))) (defmacro cerror-call (vop label error-code &rest values) - _N"Cause a continuable error. If the error is continued, execution resumes at + "Cause a continuable error. If the error is continued, execution resumes at LABEL." `(progn ,@(emit-error-break vop cerror-trap error-code values) (inst jmp ,label))) (defmacro generate-error-code (vop error-code &rest values) - _N"Generate-Error-Code Error-code Value* + "Generate-Error-Code Error-code Value* Emit code for an error with the specified Error-Code and context Values." `(assemble (*elsewhere*) (let ((start-lab (gen-label))) @@ -333,7 +333,7 @@ start-lab))) (defmacro generate-cerror-code (vop error-code &rest values) - _N"Generate-CError-Code Error-code Value* + "Generate-CError-Code Error-code Value* Emit code for a continuable error with the specified Error-Code and context Values. If the error is continued, execution resumes after the GENERATE-CERROR-CODE form." -- GitLab