Commit 990344e8 authored by Lassi Kortela's avatar Lassi Kortela
Browse files

Add ! to more destructive functions

parent 40d5c96f

generate.lisp

+31 −1
Changes for generate.lisp: 31 added lines, 1 removed line.
Original line number Diff line number Diff line
@@ -42,7 +42,21 @@ 


(defvar *manual-conversions*

  '(("atom" "?")

    ("add-method" "!")

    ("adjust-array" "!")

    ("change-class" "!")

    ("clrhash" "!")

    ("delete" "!")

    ("delete-duplicates" "!")

    ("delete-if" "!")

    ("delete-if-not" "!")

    ("delete-package" "!")

    ("ensure-generic-function" "!")

    ("fill" "!")

    ("fmakunbound" "!")

    ("initialize-instance" "!")

    ("makunbound" "!")

    ("map-into" "!")

    ("mapcan" "!")

    ("mapcon" "!")

    ("null" "?")
@@ -51,10 +65,26 @@ 
    ("push" "!")

    ("pushnew" "!")

    ("read-sequence" "!")

    ("reinitialize-instance" "!")

    ("remhash" "!")

    ("remove-method" "!")

    ("remprop" "!")

    ("replace" "!")

    ("rplaca" "!")

    ("rplacd" "!")))

    ("rplacd" "!")

    ("set-dispatch-macro-character" "!")

    ("set-macro-character" "!")

    ("set-pprint-dispatch" "!")

    ("set-syntax-from-char" "!")

    ("shared-initialize" "!")

    ("slot-makunbound" "!")

    ("sort" "!")

    ("stable-sort" "!")

    ("update-instance-for-different-class" "!")

    ("update-instance-for-redefined-class" "!")

    ("vector-pop" "!")

    ("vector-push" "!")

    ("vector-push-extend" "!")))



(defvar *conversions*

  (sort (append (map 'list

interrobang.lisp

+62 −30
Changes for interrobang.lisp: 62 added lines, 30 removed lines.
Original line number Diff line number Diff line
@@ -78,9 +78,9 @@ 
           #:acons

           #:acos

           #:acosh

           #:add-method

           #:add-method!

           #:adjoin

           #:adjust-array

           #:adjust-array!

           #:adjustable-array?

           #:allocate-instance

           #:alpha-char?
@@ -205,7 +205,7 @@ 
           #:cell-error

           #:cell-error-name

           #:cerror

           #:change-class

           #:change-class!

           #:char

           #:char-code

           #:char-code-limit
@@ -303,12 +303,12 @@ 
           #:deftype

           #:defun

           #:defvar

           #:delete

           #:delete-duplicates

           #:delete!

           #:delete-duplicates!

           #:delete-file

           #:delete-if

           #:delete-if-not

           #:delete-package

           #:delete-if!

           #:delete-if-not!

           #:delete-package!

           #:denominator

           #:deposit-field

           #:describe
@@ -346,7 +346,7 @@ 
           #:end?

           #:enough-namestring

           #:ensure-directories-exist

           #:ensure-generic-function

           #:ensure-generic-function!

           #:eq

           #:eql

           #:equal
@@ -375,7 +375,7 @@ 
           #:file-stream

           #:file-string-length

           #:file-write-date

           #:fill

           #:fill!

           #:fill-pointer

           #:find

           #:find-all-symbols
@@ -401,7 +401,7 @@ 
           #:floating-point-overflow

           #:floating-point-underflow

           #:floor

           #:fmakunbound

           #:fmakunbound!

           #:force-output

           #:format

           #:formatter
@@ -452,7 +452,7 @@ 
           #:import

           #:in-package

           #:inc!

           #:initialize-instance

           #:initialize-instance!

           #:inline

           #:input-stream?

           #:inspect
@@ -566,9 +566,9 @@ 
           #:make-symbol

           #:make-synonym-stream

           #:make-two-way-stream

           #:makunbound

           #:makunbound!

           #:map

           #:map-into

           #:map-into!

           #:mapc

           #:mapcan!

           #:mapcar
@@ -726,7 +726,7 @@ 
           #:realpart

           #:reconc!

           #:reduce

           #:reinitialize-instance

           #:reinitialize-instance!

           #:rem

           #:rem!

           #:remhash!
@@ -734,11 +734,11 @@ 
           #:remove-duplicates

           #:remove-if

           #:remove-if-not

           #:remove-method

           #:remove-method!

           #:remprop!

           #:rename-file

           #:rename-package

           #:replace

           #:replace!

           #:require

           #:rest

           #:restart
@@ -769,17 +769,17 @@ 
           #:set!

           #:set-difference

           #:set-difference!

           #:set-dispatch-macro-character

           #:set-dispatch-macro-character!

           #:set-exclusive-or

           #:set-exclusive-or!

           #:set-macro-character

           #:set-pprint-dispatch

           #:set-syntax-from-char

           #:set-macro-character!

           #:set-pprint-dispatch!

           #:set-syntax-from-char!

           #:setq

           #:seventh

           #:shadow

           #:shadowing-import

           #:shared-initialize

           #:shared-initialize!

           #:shift!

           #:short-float

           #:short-float-epsilon
@@ -811,20 +811,20 @@ 
           #:sleep

           #:slot-bound?

           #:slot-exists?

           #:slot-makunbound

           #:slot-makunbound!

           #:slot-missing

           #:slot-unbound

           #:slot-value

           #:software-type

           #:software-version

           #:some

           #:sort

           #:sort!

           #:space

           #:special

           #:special-operator?

           #:speed

           #:sqrt

           #:stable-sort

           #:stable-sort!

           #:standard

           #:standard-char

           #:standard-char?
@@ -939,8 +939,8 @@ 
           #:untrace

           #:unuse-package

           #:unwind-protect

           #:update-instance-for-different-class

           #:update-instance-for-redefined-class

           #:update-instance-for-different-class!

           #:update-instance-for-redefined-class!

           #:upgraded-array-element-type

           #:upgraded-complex-part-type

           #:upper-case?
@@ -951,9 +951,9 @@ 
           #:values-list

           #:variable

           #:vector

           #:vector-pop

           #:vector-push

           #:vector-push-extend

           #:vector-pop!

           #:vector-push!

           #:vector-push-extend!

           #:vector?

           #:warn

           #:warning
@@ -988,6 +988,8 @@ 
  (flet ((alias (new old)

           (setf (symbol-function new) (symbol-function old))

           (setf (symbol-plist new) (symbol-plist old))))

    (alias 'add-method! 'add-method)

    (alias 'adjust-array! 'adjust-array)

    (alias 'adjustable-array? 'adjustable-array-p)

    (alias 'alpha-char? 'alpha-char-p)

    (alias 'alphanumeric? 'alphanumericp)
@@ -999,6 +1001,7 @@ 
    (alias 'both-case? 'both-case-p)

    (alias 'bound? 'boundp)

    (alias 'butlast! 'nbutlast)

    (alias 'change-class! 'change-class)

    (alias 'char-greater? 'char-greaterp)

    (alias 'char-less? 'char-lessp)

    (alias 'char-not-greater? 'char-not-greaterp)
@@ -1012,16 +1015,25 @@ 
    (alias 'constant? 'constantp)

    (alias 'dec! 'decf)

    (alias 'defset! 'defsetf)

    (alias 'delete! 'delete)

    (alias 'delete-duplicates! 'delete-duplicates)

    (alias 'delete-if! 'delete-if)

    (alias 'delete-if-not! 'delete-if-not)

    (alias 'delete-package! 'delete-package)

    (alias 'digit-char? 'digit-char-p)

    (alias 'end? 'endp)

    (alias 'ensure-generic-function! 'ensure-generic-function)

    (alias 'equal? 'equalp)

    (alias 'even? 'evenp)

    (alias 'fbound? 'fboundp)

    (alias 'fill! 'fill)

    (alias 'float? 'floatp)

    (alias 'fmakunbound! 'fmakunbound)

    (alias 'function? 'functionp)

    (alias 'graphic-char? 'graphic-char-p)

    (alias 'hash-table? 'hash-table-p)

    (alias 'inc! 'incf)

    (alias 'initialize-instance! 'initialize-instance)

    (alias 'input-stream? 'input-stream-p)

    (alias 'integer? 'integerp)

    (alias 'interactive-stream? 'interactive-stream-p)
@@ -1030,6 +1042,8 @@ 
    (alias 'list? 'listp)

    (alias 'logbit? 'logbitp)

    (alias 'lower-case? 'lower-case-p)

    (alias 'makunbound! 'makunbound)

    (alias 'map-into! 'map-into)

    (alias 'mapcan! 'mapcan)

    (alias 'mapcon! 'mapcon)

    (alias 'minus? 'minusp)
@@ -1053,23 +1067,34 @@ 
    (alias 'readtable? 'readtablep)

    (alias 'real? 'realp)

    (alias 'reconc! 'nreconc)

    (alias 'reinitialize-instance! 'reinitialize-instance)

    (alias 'rem! 'remf)

    (alias 'remhash! 'remhash)

    (alias 'remove-method! 'remove-method)

    (alias 'remprop! 'remprop)

    (alias 'replace! 'replace)

    (alias 'reverse! 'nreverse)

    (alias 'rotate! 'rotatef)

    (alias 'rplaca! 'rplaca)

    (alias 'rplacd! 'rplacd)

    (alias 'set! 'setf)

    (alias 'set-difference! 'nset-difference)

    (alias 'set-dispatch-macro-character! 'set-dispatch-macro-character)

    (alias 'set-exclusive-or! 'nset-exclusive-or)

    (alias 'set-macro-character! 'set-macro-character)

    (alias 'set-pprint-dispatch! 'set-pprint-dispatch)

    (alias 'set-syntax-from-char! 'set-syntax-from-char)

    (alias 'shared-initialize! 'shared-initialize)

    (alias 'shift! 'shiftf)

    (alias 'simple-bit-vector? 'simple-bit-vector-p)

    (alias 'simple-string? 'simple-string-p)

    (alias 'simple-vector? 'simple-vector-p)

    (alias 'slot-bound? 'slot-boundp)

    (alias 'slot-exists? 'slot-exists-p)

    (alias 'slot-makunbound! 'slot-makunbound)

    (alias 'sort! 'sort)

    (alias 'special-operator? 'special-operator-p)

    (alias 'stable-sort! 'stable-sort)

    (alias 'standard-char? 'standard-char-p)

    (alias 'stream? 'streamp)

    (alias 'string-capitalize! 'nstring-capitalize)
@@ -1093,7 +1118,14 @@ 
    (alias 'tail? 'tailp)

    (alias 'type? 'typep)

    (alias 'union! 'nunion)

    (alias 'update-instance-for-different-class!

     'update-instance-for-different-class)

    (alias 'update-instance-for-redefined-class!

     'update-instance-for-redefined-class)

    (alias 'upper-case? 'upper-case-p)

    (alias 'vector-pop! 'vector-pop)

    (alias 'vector-push! 'vector-push)

    (alias 'vector-push-extend! 'vector-push-extend)

    (alias 'vector? 'vectorp)

    (alias 'wild-pathname? 'wild-pathname-p)

    (alias 'y-or-n? 'y-or-n-p)