Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Add symbols to defpackage export list to avoid warnings when reloading.

  • Loading branch information...
commit fc008f473a79919bcedfc70008cfe3d468b15ceb 1 parent b808dbd
@Ramarren authored
Showing with 124 additions and 29 deletions.
  1. +72 −14 defpackage.lisp
  2. +52 −15 utils-kt/defpackage.lisp
View
86 defpackage.lisp
@@ -45,20 +45,78 @@
#:class-direct-subclasses
)
(:export #:cell #:.md-name
- #:c-input #:c-in #:c-in8
- #:c-formula #:c? #:c_? #:c?8 #:c?_ #:c??
- #:with-integrity #:without-c-dependency #:self #:*parent*
- #:.cache #:.with-c-cache #:c-lambda
- #:defmodel #:defmd #:defobserver #:slot-value-observe #:def-c-unchanged-test
- #:new-value #:old-value #:old-value-boundp #:c...
- #:md-awaken
- #:mkpart #:make-kid #:the-kids #:nsib #:value #:^value #:.value #:kids #:^kids #:.kids
- #:cells-reset #:upper #:fm-max #:nearest #:fm-min-kid #:fm-max-kid #:mk-kid-slot
- #:def-kid-slots #:find-prior #:fm-pos #:kid-no #:fm-includes #:fm-ascendant-common
- #:fm-kid-containing #:fm-find-if #:fm-ascendant-if #:c-abs #:fm-collect-if #:psib
- #:not-to-be #:ssibno
- #:c-debug #:c-break #:c-assert #:c-stop #:c-stopped #:c-assert #:.stop #:delta-diff
- #:wtrc #:wnotrc #:eko-if #:trc #:wtrc #:eko #:ekx #:trcp #:trcx)
+ #:c-input #:c-in #:c-in8
+ #:c-formula #:c? #:c_? #:c?8 #:c?_ #:c??
+ #:with-integrity #:without-c-dependency #:self #:*parent*
+ #:.cache #:.with-c-cache #:c-lambda
+ #:defmodel #:defmd #:defobserver #:slot-value-observe #:def-c-unchanged-test
+ #:new-value #:old-value #:old-value-boundp #:c...
+ #:md-awaken
+ #:mkpart #:make-kid #:the-kids #:nsib #:value #:^value #:.value #:kids #:^kids #:.kids
+ #:cells-reset #:upper #:fm-max #:nearest #:fm-min-kid #:fm-max-kid #:mk-kid-slot
+ #:def-kid-slots #:find-prior #:fm-pos #:kid-no #:fm-includes #:fm-ascendant-common
+ #:fm-kid-containing #:fm-find-if #:fm-ascendant-if #:c-abs #:fm-collect-if #:psib
+ #:not-to-be #:ssibno
+ #:c-debug #:c-break #:c-assert #:c-stop #:c-stopped #:c-assert #:.stop #:delta-diff
+ #:wtrc #:wnotrc #:eko-if #:trc #:wtrc #:eko #:ekx #:trcp #:trcx
+ ;; also exports
+ #:fm-collect #:do-like-fm-parts #:fm-find-last-if
+ #:c?n-dbg #:c?dbg #:fm-otherx
+ #:fm-ascendant-p #:fm-kid-insert-last
+ #:md-census-report #:fm-next-sib
+ #:fm-kid-replace #:.fbid
+ #:fm-ascendant-some #:c?once #:mdead
+ #:^k-last #:c_?dbg #:cll-inner
+ #:fm-mapc #:fm-ps-parent #:fm-ordered-p
+ #:family-values #:.bgo #:fm-find-prior
+ #:fm-descendant-named #:.cache-bound-p
+ #:fm^ #:c?1 #:fm!v #:fm-collect-some
+ #:md-awake-ct #:|^K1| #:c_1
+ #:fm-traverse-bf #:u^
+ #:fm-descendant-common #:f-sensitivity
+ #:kid1 #:c?-with-stored
+ #:with-like-fm-parts #:|^K2| #:rg?
+ #:fm-find-next #:fm-ancestor-p
+ #:^sort-index #:sub-nodes
+ #:fm-kid-insert-first #:fm-do-up #:rg!
+ #:.cdbg #:name-subscript #:c?n
+ #:fm-find-next-within #:fm-ascendant-named
+ #:^fm-next-sib #:^sort-predicate
+ #:fm-quiesce-all #:container #:cll-outer
+ #:with-cc #:store-remove #:f-zerop
+ #:with-store-item #:fm-descendant-if
+ #:c-value-incf #:md-census-count
+ #:c?n-until #:md-name #:cells-store
+ #:fm-nearest-if #:fm-other-v #:fm-other?!
+ #:fm-find-prior-within #:fm-map
+ #:make-part #:fm-prior-sib #:.cause
+ #:sort-predicate #:name-root #:c-envalue
+ #:fm-kid-named #:c-input-dbg #:fm-kid-add
+ #:fm-parent #:fm-traverse #:fm-other!
+ #:fm-top #:f-delta #:store-lookup
+ #:store-add #:first-born-p
+ #:test-cells-store #:make-name
+ #:fm-kid-insert #:fm! #:container-typed
+ #:mk-part-spec #:fdifferent #:with-synapse
+ #:fm-find-one #:*fmdbg* #:last-kid
+ #:mk-part #:fm-value-dictionary
+ #:fm-kid-remove #:.parent #:sort-direction
+ #:fm-find-all #:fm-other #:fm-count-named
+ #:bwhen-c-stored #:^sort-direction #:brkx
+ #:f-find #:.pa #:fm-first-above
+ #:perishable #:fm? #:mk-synapse
+ #:md-census-start #:family #:fm-kid-typed
+ #:fm-descendant-typed #:fm^v #:c_in
+ #:fm-find-kid utils-kt:brk #:bgo
+ #:sort-index #:sort-key #:fm-otherv?
+ #:.dpid #:family-values-sorted #:fmv
+ #:dbg #:fm-other? #:fm-gather
+ #:store-items #:print-cell-model
+ #:^sort-key #:md-awake-ct-ct #:true-that
+ #:c-in-lazy #:fm-ascendant-typed #:model
+ #:kid2 #:.stopped #:c?+n
+ #:fm-next-sib-if #:f-plusp
+ )
#+allegro (:shadowing-import-from #:excl #:fasl-write #:fasl-read #:gc)
)
View
67 utils-kt/defpackage.lisp
@@ -42,20 +42,57 @@ See the Lisp Lesser GNU Public License for more details.
#+openmcl-partial-mop #:openmcl-mop
#+(and mcl (not openmcl-partial-mop)) #:ccl)
(:export
- #:export!
- #:utils-kt-reset
- #:count-it #:count-of #:with-counts
- #:wdbg #:maptimes #:bwhen #:bif #:xor
- #:with-dynamic-fn #:last1 #:packed-flat! #:with-metrics
- #:shortc
- #:intern$
- #:define-constant #:*count* #:*stop*
- #:*dbg*
+ #:export!
+ #:utils-kt-reset
+ #:count-it #:count-of #:with-counts
+ #:wdbg #:maptimes #:bwhen #:bif #:xor
+ #:with-dynamic-fn #:last1 #:packed-flat! #:with-metrics
+ #:shortc
+ #:intern$
+ #:define-constant #:*count* #:*stop*
+ #:*dbg*
#:with-gensyms
- #:make-fifo-queue #:fifo-queue #:fifo-add #:fifo-delete
- #:fifo-empty #:fifo-pop #:fifo-clear
- #:fifo-map #:fifo-peek #:fifo-data #:with-fifo-map #:fifo-length
+ #:make-fifo-queue #:fifo-queue #:fifo-add #:fifo-delete
+ #:fifo-empty #:fifo-pop #:fifo-clear
+ #:fifo-map #:fifo-peek #:fifo-data #:with-fifo-map #:fifo-length
- #-(or lispworks mcl) #:true
- #+(and mcl (not openmcl-partial-mop)) #:class-slots
- ))
+ #-(or lispworks mcl) #:true
+ #+(and mcl (not openmcl-partial-mop)) #:class-slots
+ ;; also exports
+ #:brk #:right$ #:conc-list$ #:empty$
+ #:subseq-contiguous-p #:test-prep
+ #:dd-mmm-yy #:mm/dd #:find-after
+ #:list-flatten! #:conc$
+ #:tree-includes #:-1?1 #:cc-defstruct
+ #:week-time #:test-setup #:b1
+ #:b-if #:maphash* #:min$
+ #:ymdhmsh #:cc$ #:+lf$+
+ #:class-proto #:trim$ #:remove$
+ #:hashtable-assoc #:month-abbreviation
+ #:timex #:space$ #:up$
+ #:pair-off #:down$ #:mdyy-yymd
+ #:upper$ #:clock-0 #:assoc$
+ #:eval-now! #:abbrev$
+ #:tree-intersect #:hour-min-of-day
+ #:collect #:assocd
+ #:weekday-abbreviation #:numeric$
+ #:mid$ #:find$ #:yyyy-mm-dd
+ #:trunc$ #:m/d/y #:char$
+ #:clock-off #:list-insertf #:prime?
+ #:b-when #:member$ #:clock
+ #:instance-slots #:num$
+ #:tree-traverse #:tree-flatten
+ #:rassoca #:project-path
+ #:find-before #:count-it! #:starts$
+ #:u-date #:u-time #:alpha$
+ #:push-end #:normalize$ #:now
+ #:list-insert-after #:without-repeating
+ #:mmm-dd-yyyy #:time-in-zone
+ #:split-sequence #:case-string-equal
+ #:seg$ #:lower$ #:shuffle
+ #:insert$ #:left$ multiple-value-bind
+ #:equal$ #:case$ #:make$
+ #:collect-if #:+return$+ #:u-day
+ #:test-init #:time-of-day
+ #:os-tickcount #:strloc$
+ ))
Please sign in to comment.
Something went wrong with that request. Please try again.